Burroughs 




FORTRAN COMPILER 
REFERENCE MANUAL 



Burroughs 
B 5500 

INFORMATION PROCESSING SYSTEMS 

FORTRAN COMPILER REFERENCE MANUAL 



BUSINESS MACHINES GROUP 
SALES TECHNICAL SERVICES 
SYSTEMS DOCUMENTATION 



Burroughs Corporation Z±j 

rift+mit Mirhinnn AROftO ^^BP^ 



Detroit, Michigan 48232 
Printed in U.S. America 4-68 1032083 



COPYRIGHT © 1967, 1968 BURROUGHS CORPORATION 

AA 945 756 



Burroughs Corporation believes the program described in this 
manual to be accurate and reliable, and much care has been 
taken in its preparation. However, the Corporation cannot 
accept any responsibility, financial or otherwise, for any con- 
sequences arising out of the use of this material. The infor- 
mation contained herein is subject to change. Revisions may 
be issued to advise of such changes and/or additions. 



TABLE OF CONTENTS 

SECTION TITLE PAGE 

INTRODUCTION ix 

1 GENERAL PROPERTIES 1-1 

General 1-1 

Program Cards 1-1 

Comment Card 1-3 

Dollar Sign Card 1-4 

Deck Set-Up 1-4 

2 CHARACTER SET, CONSTANTS, VARIABLES 2-1 

Character Set 2-1 

Digits 2-1 

Letters 2-1 

Special Characters 2-1 

Constants ..... 2-2 

Integer Constant 2-3 

Real Constant 2-3 

Double Precision Constants .... 2-4 

Complex Constant 2-5 

Logical Constant 2-5 

' Hollerith Constant 2-5 

Variables 2-6 

Simple Variable 2-6 

Subscripted Variable 2-7 

3 EXPRESSIONS 3-1 

General 3-1 

Arithmetic Expression ......... 3-1 

Logical Expression 3-4 

Relation 3-5 

4 ASSIGNMENT STATEMENTS 4-1 

General 4-1 

Arithmetic Assignment Statement .... 4-1 



nx 



TABLE OF CONTENTS (cont) 

SECTION TITLE PAGE 

h (cont) Logical Assignment Statement k-2 

ASSIGN Statement 4-3 

5 CONTROL STATEMENTS 5-1 

General 5-1 

Unconditional GO TO Statement 5-1 

Computed GO TO Statement 5-2 

Assigned GO TO Statement 5-3 

Arithmetic IF Statement 5-4 

Logical IF Statement 5-4 

DO Statement 5-5 

CONTINUE Statement 5-7 

PAUSE Statement 5-8 

STOP or CALL EXIT Statement 5-8 

RETURN Statement 5-9 

CALL Statement 5-10 

6 DECLARATIVE STATEMENTS 6-1 

General 6-1 

DIMENSION Statement 6-1 

Variable Dimensions 6-2 

COMMON Statement 6-3 

EQUIVALENCE Statement 6-5 

Type Statement 6-8 

EXTERNAL Statement 6-9 

DATA Statement 6-9 

7 INPUT/OUTPUT 7-1 

General . 7-1 

Input Statements 7-1 

Formatted Input Statements .... 7-2 

Unformatted Input Statements . . . 7-3 

Output Statements 7-4 

Formatted Output Statements. . . . 7-4 



xv 



TABLE OF CONTENTS (cont) 

SECTION TITLE PAGE 

7 (cont) Unformatted Output Statements. . . 7-5 

I/O Lists 7-6 

Implied DO Loop 7-6 

Action Labels 7-7 

Auxiliary I/O Statements 7-8 

REWIND Statement 7-9 

BACKSPACE Statement 7-9 

ENDFILE Statement 7-10 

CLOSE Statement 7-10 

LOCK Statement 7-11 

PURGE Statement 7-12 

FORMAT Statement 7-12 

Integer Conversion on Input 

Using Iw 7-13 

Integer Conversion on Output 

Using Iw 7-1*+ 

Real Conversion on Input 

Using Fw.d J-lk 

Real Conversion on Output 

Using Fw.d 7-15 

Real Conversion on Input 

Using Ew.d 7-l6 

Real Conversion on Output 

Using Ew.d 7-17 

Double Precision Conversion on 

Input Using Dw.d . . 7-18 

Double Precision Conversion on 

Output Using Dw.d 7-18 

Real Conversion on Input 

Using Gw.d 7-19 

Real Conversion on Output 

Using Gw.d 7-19 

Octal Conversion on Input 

Using Ow 7-20 

Octal Conversion on Output 

Using Ow 7-21 

Logical Conversion on Input 

Using Lw 7-21 



v 



TABLE OF CONTENTS (cont) 

SECTION TITLE PAGE 

7 (cont) Logical Conversion on Output 

Using Lw 7-22 

Alphanumeric Conversion on Input 

Using Aw ... 7-22 

Alphanumeric Conversion on Output 

Using Aw ... 7-23 

Inputting a Character String 

Using wHs. 7-23 

Output ting a Character String 

Using wHs. 7-24 

Inputting a Character String 

Using "s" 7-25 

Outputting a Character String 

Using "s" 7-25 

Skipping Characters Using nX . . . 7-25 

Editing Using Tn 7-25 

Scale Factor nP 7-26 

Scale Factor on Input 7-26 

Scale Factor on Output 7-26 

Format Specification in an Array . 7-27 

Carriage Control 7-27 

Use of Slash (/) 7-28 

Repeat Specifications 7-28 

Format and I/O List Interaction. . 7~28 

NAMELIST Statement . 7-30 

Input Using NAMELIST 7-30 

Output Using NAMELIST 7-31 

Tape and Disk I/O 7-32 

Unformatted Output 7-32 

BLOCKING 7-33 

BUFFERING. 7-3^ 

Disk I/O 7-3^ 

SERIAL Disk I/O 7-35 

RANDOM Disk i/O 7-36 



VI 



TABLE OF CONTENTS (cont) 

SECTION TITLE PAGE 

8 SUBPROGRAMS 8-1 

General 8-1 

Functions 8-1 

Statement Functions 8-1 

Intrinsic Functions 8-2 

External Functions 8-3 

Referencing External Functions . . 8-5 

Subroutine 8-6 

Defining Subroutine Subprograms. . 8-6 

Nonstandard Returns from Subroutines 

and Functions 8-8 

Multiple Entry Points into a 

Subprogram 8-8 

BLOCK DATA 8-10 

APPENDIX A - GLOSSARY A-l 

APPENDIX B - FILE CARDS B-l 

APPENDIX C - DOLLAR SIGN CARDS C-l 

APPENDIX D - COMPILE TIME ERROR MESSAGES D-l 

APPENDIX E - OBJECT TIME ERROR TERMINATION MESSAGES E-l 

APPENDIX F - B 5500 VERSUS USASI FORTRAN , EXTENSIONS AND 

DIFFERENCES F-l 

APPENDIX G - COLLATING SEQUENCE G-l 

APPENDIX H - BIT -MANIPULATION INTRINSICS H-l 

APPENDIX I - PRT CONTENTS OF A FORTRAN OBJECT PROGRAM. ... 1-1 

INDEX one 

LIST OF ILLUSTRATIONS 



FIGURE 



TITLE 



PAGE 



1-1 
1-2 
1-3 



Program Card Layout 1-1 

Comment Card. 1-3 

Dollar Sign Card * 1-h 



VI 1 



LIST OF ILLUSTRATIONS (cont) 



FIGURE 



TITLE 



PAGE 



5-1 
7-1 



DO Nesting 5-6 



File Format Using Unformatted Output 
Statements 



7-32 



LIST OF TABLES 



TABLE 



TITLE 



PAGE 



3-1 
3-2 

3-3 
3-4 
4-1 

6-1 

7-1 
8-1 
B-l 



Resultant Type for Operation A**B 3-2 

Combination of Elements , 3-3 

Definitions of Logical Operators. . 3-5 

Relations and Meanings 3-6 

Rules for Arithmetic Assignment Statement 

(v = a) 4-2 

EQUIVALENC ing Multiple Subscripts to 

One Subscript 6-7 

Datum Conversion 7-20 

Resulting Actions of an Intrinsic Function. . . 8-12 

File Default Descriptions ..... B-l 



vm 



INTRODUCTION 

This manual provides a complete description of the Burroughs B 5500 
FORTRAN compiler language.* 

The FORTRAN language is designed for writing programs for scientific 
and engineering applications. Statements can be written in the 
general format of mathematical notation, thus increasing the ease 
of solving formula oriented problems. 

The B 5500 FORTRAN compiler operates under the control of the 
Master Control Program (MCP) and, similarly, the object code pro- 
duced by the compiler is executed under the control of the MCP. 
For a description of the B 5500 MCP, refer to the B 5500 System 
Operation Manual (l02k9l6) . 

The B 5500 FORTRAN compiler language is based on USASI FORTRAN 
(refer to the publication: ASA X3 • 9-1966). Refer to appendix F 
of this manual for a listing of the constructs which differ from 
USASI FORTRAN. 



* FORTRAN is an acronym for FORmula TRANslation and was originally 
developed for International Business Machine equipment. 
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SECTION 1 
GENERAL PROPERTIES 

GENERAL . 

Normally, a FORTRAN source program is prepared on punched, cards. 
These cards are of three general types: general program cards, 
comment cards, and dollar sign cards. These cards are free-form, 
with the exceptions noted below. 

PROGRAM CARDS . 

Program cards are used to contain FORTRAN statements under the 

following limitations (see figure l-l): 



00000 

12 3 4 9 
11111 

22222 
33333 
44444 
S5S55 
E6666 
77777 



99999 

1 2 1 4 S 



FORTRAN STATEMENTS 



00 000000 0000000 0000000 0000000 00 000 00 000 00000 00000000 00000 000 000 000 

7 I 9 10 1112 13 14 15 II 17 19 19 20 21 22 23 24 25 26 27 21 29 30 31 32 33 34 35 39 37 38 39 40 41 42 43 44 45 46 47 W 49 50 51 52 53 54 55 56 57 59 59 GO 91 62 63 61 65 69 67 OS 69 70 71 72 
111111111111111111111111111111111111111111111111111111111111111111 

222222222222222222222222222222222222222222222222222222222222222222 
333333333333333333333333333333333333333 333333333333333333333333333 
4444444444444444444444444444444444444444 4.4 444444444444444444444444 
555555555555555555555555555555555 5555 55555555555555555555555555555 

6 6 6 6 6 6 6 6 6 6 6 6 6 B 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 B 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 
777777777777777777777777777777777777777777777777777777777777777777 
8888B88B8B8888B88888888888B8B8B888888888 8 8888 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 B 88 8 8 
9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 

7 9 9 10 11 12 13 14 15 16 17 16 19 20 21 22 23 24 25 26 27 n 29 30 31 32 33 34 35 36 37 39 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 59 57 59 59 SO 61 62 63 64 65 66 67 61 69 70 71 72 



IDENT 
OR 

SEQUENCE 

00000000 

73 74 75 76 77 71 79 ID 
11111111 

22222222 
33333333 
44444444 
55555555 
66B666B6 
77777777 
88888888 
99999999 

73 74 75 76 77 71 79 10 



Figure 1-1. Program Card Layout 

Columns 1-5. The label of a labeled statement consists 
of from one to five digits and must be placed in columns 
1 through 5- The label may be placed anywhere within 
these columns or without leading zeros, i.e. , neither 
blanks nor leading zeros are significant in differentia- 
ting statement labels. All labels within a program unit 
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must be distinct. The label field is ignored on all non- 
executable statements except for cards containing FORMAT 
statements . 

b. Column 6. Column 6 of the initial card of a statement 
must be either blank or zero. Column 6 of a continuation 
card (any additional card after the initial card needed 

to contain the statement) must contain any character other 
than blank or zero. An unlimited number of continuation 
cards may follow an initial card. 

c. Blank characters are significant only in column 6 of a 
non-comment card, in a Hollerith constant, or in a 
Hollerith field specification. With these exceptions, 
blanks may be used or omitted without affecting the in- 
terpretation of a FORTRAN statement. 

d. Columns 7-72. Columns 7 through 72 contain the FORTRAN 
statement . 

e. Columns 73-80. These columns are not interpreted by the 
compiler and may contain identification or sequencing in- 
formation. This field is, however, analyzed when changes 
are merged with a source tape (see appendix C). 

f. Two or more statements may be punched on the same physical 
card if they are separated by semicolons. If columns 1 
through 5 of the card are interpreted as a label, the label 
corresponds to the first statement on the card. Subsequent 
statements on that card are considered unlabeled. 

g. A program unit must have an END statement as its last card. 
The END statement is used only to tell the compiler that 

it has reached the end of a program unit. 
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The END statement is a card with blanks in columns 1 
through 6, the characters E, N, and D once each and in 
that order in columns 7 through 72, preceded by, inter- 
spersed with, or followed by blanks. 

The END statement is not an executable statement. If a 
program attempts to execute an END statement , the program 
is terminated with an INVALID EOJ message. 

COMMENT CARD . 

Comment cards are not interpreted by the compiler, but their in- 
formation does appear on the compilation listing for documentation 
purposes. A comment card cannot be followed by a continuation 
card. Card punching limitations are as follows (see figure 1-2): 

a. Column 1. A comment card must have the comment code, the 
letter C, in column 1. 

b. Columns 2-72. Columns 2 through 72 may be used for com- 
ments . 

c. Columns 73-80. These columns may contain identification 
or sequencing information. 



OOOOOOOOOOOOOOOQOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

2 3 4 5 6 7 6 9 10 11 12 13 14 15 11 17 IB 19 » 21 22 2) 24 ZS 2« 27 2« » 30 31 32 33 M 35 36 3J 31 3! 40 41 4M3 44 45 « 47 « 49 50 51 S2 53 » 55 58 57 M 59 W SI 62 63 64 65 BS 67 SB 69 70 71 7! 

ii ii m n i n 1 1 1 1 ii i ii 1 1 1 1111 1 ii 1 1 1 1 1 ii i ii ii i mi i in ii 'i i ii in n 1 1 1 11111 

2 2 22 22 22 22 22 222 2222222 2222 2 22 2222 2 22 2 22 22 22 2 22 222 222 22 22 2 2 2222 22 2 22222 22 
333333333333333333333333333333333333333333333333333333333333333333333333 
4 44444444444444444444444444444444444444444444444444444444444444444444444 
555555555555555555555555555555555555555555555555555555555555555555555555 
6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 B 6 6 6 6 6 6 6 6 6 6 6 
77777777777777777777777777777777777777777777777777777777777777777777777 
88888888 88888B8 888 8888 888888 88 88 8 88 888 88 88 888 88 888888 88 8888888 888 B88688 
99999999999999999999 999999999999999999999999999999999999999999999999999 

2 3 4 56 7 B 9 10 11 12 13 14 15 18 17 18 19 20 21 22 23 24 25 28 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 46 49 SO 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 



IDENT 

OR 

SEQUENCE 



00000000 

73 74 75 76 77 76 78 60 
11111111 

22222222 
33333333 
44444444 
55555555 
66666660 
77777777 
B8888888 
99999999 

73 74 75 76 77 76 79 10 



Figure 1-2. Comment Card 
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DOLLAR SIGN CARD . 

A dollar sign card, is used to specify certain compiler options (see 
appendix B). Punching limitations of the dollar sign card are as 
follows (see; figure 1-3): 

a. Column 1. Column 1 of a dollar sign card must contain 

a $. 

b. Columns 2-72. Columns 2 through 72 contain the compiler 
options desired. 

c. Columns 73-80. These columns may contain identification 
or sequencing information. 



COMPILER OPTIONS 

000000000 0000000000000000000000000000000000 00000000000000000 0000 000 D00 

2 3 4 S ! 7 1 S 10 11 12 13 14 IS It 17 18 It 20 21 22 23 24 25 26 21 28 28 30 31 32 33 34 3! 38 37 38 38 40 41 42 43 44 45 46 47 41 49 50 51 52 53 54 55 56 57 58 51 60 tl 62 E3 64 SS EC 87 68 E9 70 71 72 
11111111111111111111111111111111111111111111111111111111111111111111111 

22222222222222222222222222222222222222222222222222222222222222222222222 
33333333333333333333333333333333333333333333333333333333333333333333333 
44444444444444444444444444444444444444444444444444444444444444444444444 
55555555555555555555555555555555555555555555555555555555555555555555555 
66666666666666666666660606666606666066666666666666666666666666666660666 
7 7777777777777777 77777777777777777777 77 77777 77 777 77 7 777 777777 7777 77 777 7 
68880888088888888888888888888888888888888888888888888888888680888686888 
99999999999999939899999999999999999999999999999999999999099999999999999 

2 3 4 5 I 7 I t 10 11 12 13 14 15 18 17 18 11 20 21 22 23 24 21 26 27 26 29 30 31 32 33 34 35 it 37 3! 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 St 57 58 5t 60 81 62 63 84 65 66 67 61 69 70 71 72 



IDENT 

OR 

SEQUENCE 

00000000 

73 74 75 78 77 78 79 10 
11111111 

22222222 
33333333 
44444444 
55555555 
66666666 
77777777 
8B888888 
99999999 

73 74 75 76 77 78 71 80 



Figure 1-3. Dollar Sign Card 



DECK SET-UP. 



The arrangement of cards for use with the FORTRAN compiler is as 
follows : 

? COMPILE CARD 

? FORTRAN FILE LABEL EQUATION CARDS 

f See B 5500 

? FORTRAN CONTROL CARDS \ Operation Manual 

? OBJECT FILE LABEL EQUATION CARDS * N ° ' 102 ^9l6 

? OBJECT CONTROL CARDS 
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? DATA CARD 

DOLLAR SIGN CARD 

FILE CARDS 

SOURCE DECK ' See a PP^ di ™ s 

or 
PATCH DECK 

? END 
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SECTION 2 
CHARACTER SET , CONSTANTS , VARIABLES 

CHARACTER SET . 

The FORTRAN character set consists of digits, letters, and special 

characters . 

DIGITS. 

A digit is any one of the following ten characters: 0, 1, 2, 3, h, 
5, 6, 7, 8, 9. Digits will be in the decimal number system unless 
otherwise specified. 

LETTERS . 

A letter is any one of the following 26 characters: A, B, C, D, E, 

F, G, H, I, J, K, L, M, N, 0, P, Q, R, S, T, U, V, W, X, Y, Z. 

SPECIAL CHARACTERS. 

The special characters are divided into two categories, the USASI 

FORTRAN special characters and those added to B 5500 FORTRAN. 

The USASI FORTRAN special characters are the following: 

Character Name 

= Equal Sign 

+ Plus Sign 

Minus Sign 
* Asterisk 

/ Slash 

( Left Parenthesis 

) Right Parenthesis 

, Comma 

Decimal Point 

Blank 
$ Dollar Sign 

B 5500 FORTRAN also recognizes the quote character (")• 
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The following BCL* characters are recognized as alternatives to 
the standard FORTRAN character set: 



FORTRAN 
Character 



( 
) 



BCL 
Alternative 

& 
# or «- 



[ 

x (BCL multiplication sign) 

or : 



The relational operators are represented in FORTRAN as two-letter 
mnemonics which are preceded and followed by a period. These 
operators and their BCL alternatives are: 



FORTRAN 
Mnemonic 

.LT. 
.LE. 
.NE. 
.GT. 
.GE. 
.EQ. 



Meaning 

Less Than 

Less Than or Equal 

Not Equal 

Greater Than 

Greater Than or Equal 

Equal 



BCL 
Alternative 

< 
< 

> 
> 



Two remaining BCL characters serve special purposes. The semicolon 
(;) may be used to separate two or more statements on one physical 
card, and may also be used in a Hollerith field. The right bracket 
(]) is reserved for use by the compiler. Imbedded blanks have no 
meaning in a FORTRAN statement except in a Hollerith field. 

CONSTANTS. 



Six basic types of constants are allowed in the FORTRAN programing 
language: integer, real, double precision, complex, logical, and 
Hollerith. 



* BCL is an abbreviation for Burroughs Common Language. 
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INTEGER CONSTANT. 

An integer constant is formed by a string of decimal digits 

The general form is: 



N 



where -5^9755813887 < N < +5^9755813887 



An integer constant is written without a decimal point or exponent, 

If the range specified above is exceeded, the constant is inter- 
preted as a double precision constant. 

Examples : 

12 

-16729 

3624138 

REAL CONSTANT. 

A real constant is a string of decimal digits with a decimal point 

and, optionally, an exponent. 

The general form is : 



M.NEX 



where M and N are strings of decimal digits , only 
one of which may be blank; X is a signed or un- 
signed one or two-digit integer which is the ex- 
ponent . 



A real constant may be signed or unsigned. 

An exponent is optional. If it is used, then a letter E follows 
the mantissa and precedes the exponent. 

The exponent, if present, is interpreted such that 10 is multiplied 
times the mantissa. 
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4.31^E68 > ABS(R) > 8.758E-^7> where R is a real constant, is the 
range within which a real constant may fall. 

Examples : 

56.9 

.075 

-253. 

71.32E+02 (which represents 7132.0) 

-71.32E-2 (which represents -.7132) 

DOUBLE PRECISION CONSTANTS. 

A double precision constant is of the same form as a real constant , 
except that its mantissa may contain up to 23 decimal digits and 
its exponent is preceded by a D instead of an E. 

The general form is : 



M.NDX 



where M and N are strings of decimal digits , only 
one of which may be blank; X is a signed or unsigned 
one or two-digit integer which is the exponent. 



The mantissa may contain up to 23 decimal digits. If more are used, 
then the mantissa is truncated to the 23 most -significant digits. 

The range of a double precision constant is identical to that of a 
real constant. 

A constant which does not have an exponent but which specifies more 
digits than a single precision value can maintain is interpreted as 
a double precision constant. 

Examples : 

12D-1 
-5.36D+56 
52D-07 
•713D-17 
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COMPLEX CONSTANT. 

A complex constant, in the mathematical sense, is composed of a 

real part and an imaginary part . 



The general form is : 



(M,N) 



where M is the real part and 
N is the imaginary part . 



Each of the two components may be either a real constant or an 
integer constant. 

Double precision components are not permitted. 



Examples ; 



Complex 
Constant 

(5,64.2) 

(0,-1) 

(3.5E-2,75-9) 



Mathematical 
Interpretation 

5 + 6k. 2i 

-i 

.035 + 75. 9± 



LOGICAL CONSTANT. 

A logical constant may be either true or false, 

The general form is : 



TRUE. 



FALSE. 



Examples ; 

. TRUE . 
. FALSE . 

HOLLERITH CONSTANT. 

A Hollerith constant is a string of any valid FORTRAN characters. 
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The general form is: 



wHs 


where w 
string 


is 
and 


the width 
s is the 


of 
str: 


the 
Lng. 




"s" 


where 


s 


is the str 


ing 


■ 



Blanks appearing in the string must be included, in the field width 
w when form wHs is used. 

The string may contain any valid FORTRAN characters except the 
quote character (") and its alternatives: @ and :. 

Strings are stored in memory, six characters per word. 

Although a B 5500 word is capable of storing eight characters, only 
the six right-most character positions are used for storage. The 
two left-most character positions always contain zeros. 

If a string does not contain a multiple of six characters, then in 
the last word used for storing the string the remaining characters 
are stored left -justified over a field of blanks. 

Examples : (b represents blank) 

2HbT 
"DOUT " 
5HABCDE 

VARIABLES . 

There are two forms of variables: simple and subscripted. Each of 
these are, in turn, classified into five basic types: integer, 
real, double precision, complex, and logical. 

SIMPLE VARIABLE. 

A simple variable represents a single value. 
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The general form is 



From one to six alphanumeric characters , 
the first of which must be alphabetic. 



A variable name with a first character of I, J, K, L, M , or N 
implicitly types that variable as an integer variable. A variable 
name beginning with any other alphabetic character is implicitly 
typed as a real variable unless otherwise defined in a Type state- 
ment . 

A variable of type DOUBLE PRECISION, COMPLEX, or LOGICAL must be 
declared as such in a Type statement. 

Examples : 



Integer 
Variables 

IB2 
J12 
KALPHA 



Real 
"Variables 

A123 

TSUB2 

ZSQD 



SUBSCRIPTED VARIABLE. 

A subscripted variable refers to a particular element of an array 
of the same name as the subscripted variable. (See section 6 for 
additional discussion). 



The general form is : 



N(a x 



, a„ , . . , , a ) 



where N is the array name, a^,a2,... ?-. n 
arithmetic expressions which determine the 
values of the subscripts of the subscripted 
variable, and n is the number of subscripts 
declared in the declaration of the array N. 



A subscripted variable is named and typed according to the same 
rules as a simple variable. 
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All elements of an array must be of the same type, i.e. , if N(2) 
is integer, then N(3) must also be integer. 

A subscript may be an integer or real arithmetic expression. 

If a subscript is a real arithmetic expression, then it will be 
evaluated and converted to integer by rounding before being used 
as a subscript. 

Subscripted variables must have their subscript bounds specified 
in a DIMENSION, Type, or COMMON statement prior to their first 
appearance in either an executable statement or in a DATA state- 
ment . 

A subscript value, after any necessary conversion, must be greater 
than zero and may not exceed the bound specified for the array in 
the DIMENSION, Type, or COMMON statement in which it is declared. 

Multi-dimensioned arrays are stored with the left-most subscript 
varying most rapidly and the right-most subscript varying least 
rapidly . 



Examples 



B(I) 

gsu:b(8*k+3 .l) 

dmin(i,j,k) 

isub(i ,j*k/l,c ,b*d ,f/g) 
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SECTION 3 
EXPRESSIONS 



GENERAL. 



An expression is any constant, variable, or function reference, or 
combination of these separated by operators, commas, or parentheses 
There are two types of expressions : 

a. Arithmetic. 

b. Logical. 

ARITHMETIC EXPRESSION . 

An arithmetic expression is a rule for computing a numerical value. 

The general form is: 



Any 


cons 


tant , 


variable 


, or funct 


ion 


re 


f- 


erence , 


or co 


mbinat ion 


of these 


sepa 


ra 


ted 


by o 


pera 


tors , 


commas , 


or parenth 


eses 


• 





An arithmetic expression may contain the following arithmetic 
operators : 



Operator 



/ 





Meaning 

Addition 

Subtraction 

Multiplication 

Division 

Exponentiation 

Grouping Operator Pair 



Arithmetic expressions may be connected by arithmetic operators 
to form other expressions , provided no two operators appear in 
sequence and no arithmetic operator is assumed to be present. Ex- 
amples of invalid, arithmetic expressions are: 

A + +B 
(A+2)(B+3) 
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Any arithmetic expression can be enclosed in parentheses. 

All actual arguments of a function reference are evaluated before 
the function is evaluated. 

Parentheses may be used in an arithmetic expression to denote the 
order in which operations are to be performed. Parentheses have 
first precedence in determining the order of evaluation and, when 
nested parentheses occur, evaluation proceeds from the innermost 
to outermost set. 

The precedence order used in evaluating an arithmetic expression 
is as follows : 



(highest ) 



(lowest ) 



Primary 

Exponentiation 
Multiplication and division 
Addition and subtraction 



where the precedence for successive operators of the same level is 
from left to right, e.g., A**B**C is evaluated as (a**b)**C. 

For the operation A**B , the valid combinations and results are 
noted in table 3-1 • 

Table 3-1 
Resultant Type for Operation A**B 



Base A 


Exponent B 


Integer 


Real 


Double 
Precision 


Complex 


Integer 

Real 

Double 
Precision 

Complex 


Integer 

Real 

Double 
Precision 

Complex 


Real 

Real 

Double 
Precision 

Complex 


Double 
Precision 

Double 
Precision 

Double 
Precision 

Complex 
(see NOTE) 


Not permitted 
Not permitted 
Not permitted 
Not permitted 
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NOTE 

The double precision exponent is con- 
verted to real before exponentiation. 



Any element may be combined with, any other element through use of 
all the arithmetic operators except exponentiation. The resultant 
type is listed in table 3-2 for A OP B , where A and B are operands 



and OP is either + , - , 



or /. 



Examples 



B 

2.316 
K + 1 

(x + a(i,j,l) - sin(y(k))) 
X - c + y(i,l) * 16.397 



Table 3-2 
Combination of Elements 



A 


B 


Integer 


Real 


Double 
Precision 


Complex 


Integer 

Real 

Double 
Precision 

Complex 


Integer 
(see NOTE l) 

Real 

Double 
Precision 

Complex 


Real 

Real 

Double 
Precision 

Complex 


Double 
Precision 

Double 
Precision 

Double 
Precision 

Complex 
(see NOTE 2) 


Complex 

Complex 

Complex 
(see NOTE 2) 

Complex 



NOTE 1 
Integer division yields a truncated result 

NOTE 2 

The double precision element is con- 
verted to real before the operation. 
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LOGICAL EXPRESSION . 

A logical expression is a rule for computing a logical value. 



The general form is 



Any 


cons 


tant 


, variable 


, or funct 


ion 


ref- 


erence } 


or c 


ombinat ion 


of these 


sepa 


rated 


by opera 


tors 


j commas > 


or parenth 


eses 


• 



Logical quantities may be combined by logical operators to form 
logical expressions in a manner analogous to the combination of 
arithmetic quantities by arithmetic operators. 

A logical quantity, of itself? may also constitute a logical ex- 
pression. 

A logical quantity may be: 

a. Any logical variable. 

b. Either of the logical constants .TRUE, or .FALSE. 

c. Any logical function reference. 

d. Any relation. 

The logical operators are defined in table 3-3. 

The precedence of operators in the evaluation of logical expres- 
sions is : 



(highest ) 



(lowest ) 



Function reference 

** (Exponentiation) 

* and / (Multiplication and division) 

+ and - (Addition and subtraction) 

. LT . j . LE • t . EQ • j • NE • 5 . GT • > . GE . 

.NOT. 

.AND. 

.OR. 



Parentheses may be used to alter the order of evaluation (just as 
in arithmetic expressions). 
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Table 3-3 
Definitions of Logical Operators 



Operator 


Definition 


.NOT. 
.AND. 
.OR. 


The expression .NOT. P is .TRUE, 
when P is .FALSE. The expression 

.NOT. P is .FALSE, when P is 

.TRUE. 

The expression P .AND. Q is .TRUE, 
when both P and. Q are .TRUE. It 
is .FALSE, if either P or Q is 
.FALSE, or both are .FALSE. 

The expression P .OR. Q is .TRUE. 
if either P or Q, or both, are 
.TRUE. It is .FALSE, if and only 
if both P and Q are .FALSE. 



Examples : 

If A and B are logical expressions , then each of the following is 
also a logical expression: 

.NOT. B 
A 

(B) 
A.OR.B 

((B)) 

B .AND. A 

RELATION . 

A relation is a conditional logical expression. 

The general form is : 



A OP B 



where A and B are arithmetic expres- 
sions and OP is a relational operator. 



The relational operators and their meaning are noted in table 3-^. 
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Table 3-^ 
Relations and Meanings 



Relation 


Meaning 


A l « GT - A 2 


A l 


Greater Than A 


A .GE. A 


A 1 


Greater Than or Equal to A 


A l - LT ' A 2 


A l 


Less Than A 


A .LE. A 


k l 


Less Than or Equal to A 


A ,NE. A 


A l 


Not Equal to A 


A ± .EQ. A 2 


A l 


Equal to A 



NOTE 

Ai and A2 may be of type INTEGER, REAL, or DOUBLE 
PRECISION. Neither may be of type COMPLEX. 

Relations, when evaluated, may have one of two values, true or 
false . 

Chains of relations are not permitted, e.g. , 
A .LT. B .LT. C 

A correct form would be: 

A .LT. B .AND. B . LT . C 
or 

A .LT. B .AND. A . LT . C 
whichever is intended. 

Examples ; 

(A, B, Q, Z, E, F, X, G, H, and Y are arithmetic expressions.) 

A . LT . B 

a .lt. b .and. q . gt . z 

(e+f) .ne.sin(x) .or. (g-h).lt.abs(y) 
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SECTION h 
ASSIGNMENT STATEMENTS 



GENERAL . 



There are three types of assignment statements: 

a. Arithmetic assignment statement. 

b. Logical assignment statement. 

c. ASSIGN statement. 

ARITHMETIC ASSIGNMENT STATEMENT . 

The arithmetic assignment statement causes the value represented, 
by an arithmetic expression appearing to the right of the assign- 
ment operator (=) to be assigned to the simple or subscripted 
"variable appearing to the left of the assignment operator. 

The general form is : 



v = a . e . 



where v represents a variable name, 
simple or subscripted, and a.e. rep- 
resents an arithmetic expression. 



The variable v cannot be of type LOGICAL. 

The rules provided in table k-1 apply for type and value assign- 
ment in arithmetic expressions. 

Examples : 

X = Y+Z 

X(10) = A(5)+B(6)-(C/D) 

JX = 3^+2 

X = 5.k9 

X(l) = b(i)+cos(a(i)) 

X(h) = D - C**2 

x(i,j) = a(i,j)+b(j,i) 
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Table 4-1 
Rules for Arithmetic Assignment Statement (v 



= a) 



"V 


a 


Rule 


Integer 


Integer 


Assign . 


Integer 


Real 


Truncate to an integer and assign. 


Integer 


Double 
Precision 


Truncate to an integer and assign. 


Integer 


Complex 


Not permitted. 


Real 


Integer 


A s s i gn . 


Real 


Real 


A s s i gn . 


Real 


Double 
Precision 


Assign the most-significant part. 


Real 


Complex 


Not permitted. 


Double 


Integer 


Extend to double precision and assign. 


Precision 






Double 


Real 


Extend to double precision and assign. 


Precision 






Double 


Double 


Assign. 


Precision 


Precision 




Double 


Complex 


Not permitted. 


Precision 






Complex 


Integer 


Not permitted. 


Complex 


Real 


Not permitted. 


Complex 


Double 
Precision 


Not permitted. 


Complex 


Complex 


Assign. 



LOGICAL ASSIGNMENT STATEMENT . 

The logical assignment statement causes the value represented by the 
logical expression appearing to the right of the assignment operator 
(=) to be assigned to the simple or subscripted variable of type 
LOGICAL appearing to the left of the replacement operator. 



The general form is: 



v = I.e. 



where v is a simple or subscripted 
variable of type LOGICAL and I.e. 
represents a logical expression. 
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The variable v must be of type LOGICAL. 

Examples : 

(K, L, M, and N are logical variables.) 

K = A .OR. B 

L(J,5) = .TRUE. 

M = A .LT. B 

N = Q .GT. R .AND. Z . LT . P 

ASSIGN STATEMENT . 

The ASSIGN statement is used to initialize an assigned GO TO 

statement (see section 5). 

The general form is : 







ASSIGN n TO 


t 






where 


n 


is a statement 


lab 


el 


ref - 


erenc 


ed 


in an assigned 


GO 


TO 


state- 


ment , 


and t is a simple 


• in 


teg 


er or 


real 


variable appearing in 


th 


e same 


assigned 


GO TO statemen 


it. 







The statement label n must be referenced in the assigned GO TO 
statement being initialized. 

The variable t must be the same variable referenced in the assigned 
GO TO statement being initialized. 

Example : 

ASSIGN 10 TO J 
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SECTION 5 
CONTROL STATEMENTS 



GENERAL . 



Control statements are used to alter the normal flow of a program. 
They may transfer control to another part of the program, terminate 
computation, or control iterative processes. Control may be trans- 
ferred to labeled executable statements only. There are 11 dif- 
ferent control statements: 

a. Unconditional GO TO statement. 

b. Computed GO TO statement. 

c. Assigned GO TO statement. 

d. Arithmetic IF statement. 

e. Logical IF statement. 

f. DO statement. 

g. CONTINUE statement, 
h. PAUSE statement. 

i. STOP or CALL EXIT statement. 

j. RETURN statement. 

k. CALL statement (not including CALL EXIT). 

UNCONDITIONAL GO TO STATEMENT . 

Execution of this statement causes control to be transferred to a 
statement other than that sequentially following the unconditional 
GO TO statement. 



The general form is 



GO TO n 



where n is a statement label which 
exists within the same program unit 



A statement label n must be defined within the same program unit 
as the unconditional GO TO statement which references it. 
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The statement labeled n may appear before or after the uncondi- 
tional GO TO statement referencing it. 

Example : 



GO TO 31 

• • • 

• • • 

31 . . . 

COMPUTED GO TO STATEMENT . 

Execution of this statement causes control to be transferred to one 
of several statements other than that sequentially following the 
computed GO TO statement. 

The general form is : 



GO 



TO (n 1 ,n , . . . ,n . ) , t 



where n-^ ,n 2 > • • • »n^ are statement labels 
and t is an arithmetic expression. 



Control will be transferred to the statement label whose position 
in the list is equal to the value of the arithmetic expression 
t , I.e., n . 

The statement labels n ,n , . . . ,n. must exist in the same program 
unit as the computed GO TO statement. 

The computed GO TO statement is valid for values of t such that 

1 < t < i, otherwise the program will be terminated with an INVALID 

INDEX . 

The arithmetic expression t must be of type INTEGER or of type 
REAL. 

If t is of type REAL, it will be evaluated and then rounded to an 
integer. 
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Example : 

K=4 

GOTO (50,40,30,20,10) ,K 

Execution of these two statements will cause control to be trans- 
ferred to statement 20. 

ASSIGNED GO TO STATEMENT . 

Execution of this statement causes control to be transferred to 
one of several alternative statements other than that sequentially 
following the assigned GO TO statement. 



The general form is 



GO TO 



t , (n ,n 2 , . . . ,n ± ) 



where t is a simple integer or real vari- 
able and n ,n , . . . ,n. are statement labels 



Control will be transferred to the statement whose label has been 
ASSIGNed to t with an ASSIGN statement. 

The values ASSIGNable to t are the actual statement labels appear- 
ing in the list n ,n , . . . ,n. . 

The variable t must be a simple integer or real variable. 

If t has not been assigned a label appearing in the list , an INVALID 
INDEX termination of the program will result. 

The statement labels n 1 ,n , . . . ,n. must appear in the same program 
unit as the ASSIGN statement and. the ASSIGNed GO TO statement (see 
ASSIGN statement, section h) . 

Example ; 



ASSIGN 10 TO J 

GO TO J, (50,40,30,20,10) 
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Execution of these two statements will cause control to be trans- 
ferred to statement 10. 

ARITHMETIC IF STATEMENT . 

Execution of the arithmetic IF statement causes an arithmetic 
expression to be evaluated and a different branch to be made de- 
pending upon whether the expression evaluated is negative} zero, or 
positive . 

The general form is : 



IF( 



a. e. )n ,n ,n 



L 3 



where a.e. is an arithmetic expression 
and n ,n , and n are statement labels. 



Execution of the arithmetic IF statement causes control to be trans^ 
f erred to n ,n , or n if a.e. is less than, equal to, or greater 
than zero, respectively. 

The arithmetic expression a.e. may not be complex. 

Examples : 

IF(A-B) 1,2,3 

if(x(i,j)-c*e) 43,51,96 
logical if statement . 

Execution of the logical IF statement causes a logical expression 
to be evaluated and the sequence of execution of the program state- 
ments to be altered, depending upon whether the logical expression 
evaluated is true or false. 



The general form is 



IF (i.e. ) s 



where I.e. is a logical expression and 
s is an executable FORTRAN statement. 



The statement s may be any executable FORTRAN statement except a 
DO statement. 
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Execution of the logical IF statement results in the logical ex- 
pression I.e. being evaluated. If I.e. is true, statement s is 
executed. If I.e. is false, then statement s is not executed, and 
control is transferred to the next sequential executable statement 
following the logical IF statement. 

Examples : 

X and Y are of type LOGICAL. 

IF(X .AND. Y) A = 3.1 

IF (A .LE. B .OR. I .EQ. 0) GO TO 5 

DO STATEMENT . 

The DO statement provides a means of controlling program loops. 



The general form is : 



DO m i=n 1 ,n^ ,n 



where m is a statement label , i 
is a variable , and nx ,n2 , and 
n^ are arithmetic expressions. 



Execution of a DO statement results in the following actions: 

a. The control variable i is set to the initial value n . 

b. All executable statements up to and including the terminal 
statement are executed. 

c. The control variable i is incremented by n . 

d. The value of the control variable i is compared to the 
terminal value n . If the terminal value has been ex- 
ceeded, control is transferred to the first executable 
statement following the terminal statement. Otherwise, 
steps b through d are repeated until the control variable 
comparison is satisfied. 



In the general form, the control .variable i is a simple integer or 

real variable. 
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In the general form, m is the label of an executable statement 
terminating the DO loop. 

In the general form, n , n , and n are integer or real arithmetic 
expressions which are the initial, terminal, and incremental para- 
meters, respectively, for the control variable i. 

If not specified, n is assumed to be 1. 

If present, n must be greater than zero. 

In the general form, n must be greater than n ,. 

The DO statement is always executed once with its initial value. 

The DO parameter is incremented and compared to n„ prior to its 
use and may be modified by any statement within the range of the 
DO loop. 

The control variable i is available for use by all statements within 
the DO loop, including the terminal statement, and may be modified 
as desired. The control variable i is available for computation 
when exiting from a DO loop by transferring outside the loop and 
not making a normal exit. When a normal exit is made from the DO 
loop, the control variable is undefined. 

A DO statement may appear within a DO loop. This is defined as 
being a DO nest. However, all statements in the range of the 
latter DO loops must be within the range of the initial DO loop 
(see figure 5-l). 



DO 



DO 



E ~c 



DO 



Figure 5-1. DO Nesting 
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Nested DO ' s may specify the same statement as their last statement 
m. 

Any number of DO statements may be nested within the range of 
another DO statement. 

There are no restrictions on transfer out of or into the range of 
a DO loop. If a transfer is made into the range of a DO loop, then 
the programmer is responsible for the appropriate assignment of a 
value to the control variable i. 

When several DO statements share the same last statement m, the 
control variable i of the outermost DO statements is not reassigned 
and tested until each of the inner DO statements in its range is 
satisfied, starting with the innermost one. When the outermost 
DO statement is satisfied, a normal exit is made and control is 
transferred to the next executable statement following the range of 
the just-satisfied DO loop. 



Examples : 



DO 10 1=2 ,200,4 



10 



DO 5 INDEX=5 ,10 
DO 5 J=l >10 



CONTINUE STATEMENT . 

The CONTINUE statement is considered a dummy statement because it 
causes no action in the execution of a program. It is frequently 
used as the terminal statement of a DO loop to provide a transfer 
point for an IF or GO TO statement. 

The general form is : 



CONTINUE 
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Example ; 



30 

ho 



DO 30 J=2 ,N 

B(j)=NM(j-l) + INC 

IF (n(j).lt. MAX) GO TO 30 

K=J-1 
GO TO 40 

CONTINUE 



PAUSE STATEMENT . 

The PAUSE statement is used to interrupt execution of a program 

when action is required of the computer operator. 

The general form is : 



PAUSE n 



where n is an integer constant up 
to six digits long or is blank. 



If the n is present , it is displayed to the operator at the time of 
interruption. Execution is resumed with the first executable state- 
ment immediately following the PAUSE statement after an OK message 
has been keyed in at the SPO (refer to B 5500 Operation Manual). 

NOTE 

SPO stands for SuPervisOry printer, 
and specifies the console typewriter. 

Examples ; 

PAUSE 
PAUSE 30 

STOP OR CALL EXIT STATEMENT . 

The STOP statement causes immediate termination of the program. 
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The general form is: 



STOP n 



where n is an integer constant up 
to six digits long or is blank. 



The CALL EXIT statement is equivalent to STOP. 



The general form is : 



CALL EXIT 



Examples : 

STOP 
STOP h 
CALL EXIT 

RETURN STATEMENT . 

Execution of the RETURN statement causes control to be transferred 

from a subprogram to the calling program. 

The general form is: 



RETURN n 



where n is an arithmetic 
expression or is blank. 



Every subprogram must contain at least one RETURN statement , but 
more than one may appear in a subprogram. 

If n is not blank, control returns to the point of reference and is 
used to select one of the formal parameters in the subroutine re- 
presented by an asterisk (nonstandard return). Control then returns 
to the statement specified by a corresponding actual parameter in 
the calling program (see nonstandard returns, section 8). 

If n is blank, then control returns to the point of reference in 
the calling program unit. 
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CALL STATEMENT . 

A subroutine is referenced by a CALL statement 



The general form is 



CALL N 



CALL N(a ,a , . . . ,a ) 



where N is the name of the subroutine and 
a ,a j..., a are the actual parameters. 



The actual parameters which constitute the parameter list must 
agree in order, number, and type with the corresponding formal 
parameters in the program unit defining the subroutine subprogram. 

If a formal parameter is real, then an integer actual parameter 
may be used. 

For purposes of type agreement , a Hollerith constant is considered 
of type INTEGER. 

An actual parameter in a subroutine reference may be one of the 
following : 

a. A Hollerith constant. 

b. A variable name. 

c. A subscripted variable. 

d. An array name. 

e. An expression. 

f . The name of a subprogram. 

g. $label (see nonstandard returns, section 8) 

Execution of a subroutine reference results in an association of 
actual parameters with all appearances of formal parameters in 
executable statements in the subroutine body, and in an association 
of actual parameters with variable dimensions in the subroutine, 
if any exist . 
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Following the above associations, control is transferred to the 
first executable statement in the subroutine body. 

If an actual parameter is a subscripted variable with an arith- 
metic expression as a subscript, then, effectively, the arithmetic 
expression is evaluated, and the resulting subscripted variable is 
associated with the corresponding formal parameter in the sub- 
rout ine . 

If a formal parameter of a subroutine is an array name, the corres- 
ponding actual parameter must be an array name or an array element 
name . 

Examples : 

CALL FALL(X,Y,Z) 

CALL K0ST(A(l+J } 2) ,B,"HEAD") 
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SECTION 6 
DECLARATIVE STATEMENTS 

GENERAL . 

The declarative statements are non-executable statements used to 
supply variable and array information and storage allocation in- 
formation. The six different declarative statements are: 

a. DIMENSION statement. 

b. COMMON statement. 

c. EQUIVALENCE statement. 

d. Type statement. 

e. EXTERNAL statement. 

f. DATA statement. 

DIMENSION STATEMENT . 

The DIMENSION statement provides a means for specifying a collection 
of values with a single name, and at the same time specifying to the 
compiler the structure which is imposed on the collection. 

The general form is: 



DIMENSION a (i ), a (± 2 ) , a (ij . . . . 



where each a is an array name and each i repre- 
sents dimension information having the form of 
one or more subscript bounds separated by commas 



Each bound is an integer constant. 

Variable names appearing with subscripts in the source program must 
have dimension information specified for them prior to their use. 

Dimension information may be given in a DIMENSION, COMMON, or Type 
statement; however, the dimension information for a specific array 
name must appear only once in the program unit. 

The magnitude of the values of the subscript bounds indicate the 
maximum values the subscripts may obtain in any reference to the 
array. The lower subscript bound is always one. 
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An array may have variables for its subscript bounds in a FUNCTION 
or SUBROUTINE subprogram only. In this case, the array name and 
all variables used as subscript bounds must appear as formal para- 
meters in the subprogram. The actual values assumed by these 
variables are not determined until the subprogram is entered at 
execution time (see variable dimensions below). 

No array may exceed 32767 words. 

VARIABLE DIMENSIONS. 

An array can be placed in a subprogram with variables used as 
dimensions instead of constants. The advantage to this is that a 
given subprogram can perform calculations on such a generally 
stated array with specific dimensions provided from any calling 
program. The specific dimensions must be provided in a DIMENSION 
statement in title calling program. The actual values assumed by 
these variables are not determined until the subprogram is en- 
tered at execution time. 

The general form is : 



DIMENSION a 1 (i 1 ), a 2 (±2)f a 3 (i 3 ) 



where each a is an array name and each i is 
one or more subscript bounds separated by 
commas. Each bound is an integer variable. 



Variables can be used as dimensions of an array in a FUNCTION or 
SUBROUTINE subprogram only. 

The variables must appear in a DIMENSION statement of the subroutine, 

The array name and all variables used as dimensions must appear as 
formal parameters in the initial FUNCTION, SUBROUTINE, or ENTRY 
statement . 

Specific dimensions passed to the subprogram from the calling 
program must be identified in a DIMENSION statement of the calling 
program. 
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Specific variable size can be passed down through more than one 
level of a subprogram to a given subprogram using the variable 
as a dimension. 



Example ; 



DIMENSION A (10, 20) 



1=5 

J=7 

CALL SUB ( A, I, J ) 



END 

SUBROUTINE SUB(B,K,L) 

DIMENSION B(K,L) 



END 



COMMON STATEMENT . 

The COMMON statement provides a means for sharing core storage 
between the main program and its subprograms , or among the sub- 
programs. Information appearing in the storage area reserved by 
a COMMON statement is ordered in the sequence specified by the 
COMMON storage: labeled and unlabeled. 

The general form is : 





C0MM0N/x 1 /a 1 /x 2 /a 2 / . 


. . /x /a 
' n' n 




where 


each 


a in 


the COMMON s 


tatement is 


a list 


containing 


any c 


ombination o 


f variable names , 


array 


names 


, or 


dimensioned 


array names 


? and 


each x is a 


. bloc 


k name or is 


empty. If 


xi is 


empty 


the 


first 


two slashes 


are optional. 



Array names in a COMMON statement may have their dimensioning infor- 
mation appended to them. When arrays are dimensioned in a COMMON 
statement 5 they cannot be dimensioned in Type or DIMENSION state- 
ments . 
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COMMON area storage is assigned in the order of appearance of the 
elements within the COMMON block list. 

Block names may be duplicated within a program unit , causing the 
associated elements from each COMMON block list having the same 
name to be cumulatively assigned to one block with the same name. 
The effect is the same as declaring the block name once and listing 
all elements for that block in the COMMON block list. This is also 
true for multiple unlabeled COMMON block lists within a given 
program unit. 

Variables and array names may not be duplicated in COMMON state- 
ments . 

COMMON elements may be assigned initial values through use of the 
BLOCK DATA subprogram. 

The number and type of variables appearing in the COMMON block 
list and related EQUIVALENCE statements specify the length of 
the COMMON block. 

All subscript bounds for any array which appears in a COMMON state- 
ment must be integer constants. 

A COMMON block need not have the same size in each program unit in 
which it appears. However, if the size of a block is greater than 
1023 words in any program unit , it must also be greater than 1023 
words in the first program unit in which it appears. 

No COMMON block may exceed 32767 words. 

An element in COMMON which is double precision or complex must be 
an odd-numbered element (i.e. , first, third, fifth, etc.) counting 
from the left. 

Example : 

COMMON A ,B,C ,D 
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If both i and C are double precision, then B and D may or may not be 

double precision or complex. However, if B and D are double pre- 
cision or complex, then A and C must be double precision or complex. 

Labeled common statements are specified by a block name , between 
slashes, preceding the list of elements assigned to that labeled 
COMMON block. Termination of the list of elements assigned to a 
block is by: 

a. Termination of the COMMON statement. 

b. Introduction of a new block name. 

c. Introduction of an unlabeled COMMON block. 

COMMON block names are unique identifiers. When a block name is 
present in a COMMON statement, it is embedded in slashes, e.g. , /x/. 

Blocks of labeled COMMON statements in different program units 
which have the same block name will occupy the same storage area. 

Unlabeled COMMON statements are specified by a blank block name, 
e.g. 5 / /, followed by the unlabeled COMMON block list. The two 
slashes may be omitted if they appear at the beginning of a COMMON 
statement list. Termination of an unlabeled COMMON block is accom- 
plished by the introduction of a block name or termination of the 
COMMON statement. 

Examples ; 

COMMON X,Y,Z 
COMMON /Y/Q,R,S 
COMMON / / K(5,5) »L 
COMMON A,B,C/S/D(l0,10) ,E 
COMMON /Y/Q,R,S/ /K(5»5),L 

EQUIVALENCE STATEMENT . 

By using the EQUIVALENCE statement , a storage location can be given 
more than one name. Thus, variables or array elements not listed 
in an EQUIVALENCE statement have unique storage assignments. 
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The general form is: 



EQUIVALENCE (Ql ) , (Q 2 ) , (Q 3 ) ,( Qn ) 



where each Q is a list of two or more 
simple or subscripted variables or 
array names separated by commas. 



Subscripts must be positive integer constants and must correspond 
in number to the declared number of dimensions of the array, or be 
single subscripted by equating the element position in the array 
to a single subscript. For an explanation of the latter, see 
table 6-1. 

An array name without subscripts is considered as that identifier 
with a subscript of one. 

Any number of equivalence lists may appear in an EQUIVALENCE state- 
ment . 

Elements may be entered into COMMON blocks by setting them equiva- 
lent to an element appearing in a COMMON statement list. If the 
element is an array element, the whole array is brought into COMMON. 
This may extend the size of the COMMON block involved either at its 
beginning or at its end. 

When two elements share storage because of their appearance in one 
or more EQUIVALENCE statements, only one may appear in a COMMON 
statement . 

All subscript bounds for an array which appears in an EQUIVALENCE 
statement must be integer constants. 

An EQUIVALENCE statement must precede any reference to the elements 
EQUIVALENCEd . 
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Example : 

DIMENSION A (10), B(5,5) D(3,3>3) 

EQUIVALENCE (A(3)» B(5>*0i D(l,l,l)), (A(l),E) 

The above statements assign specific variable values to the same 
storage locations, as shown below, where each horizontal line is 
one memory location. 



Variable Value 



A(l) 
A(2) 

A(3) 
A(k) 

A(5) 

A(6) 

A(7) 
A(8) 

A(9) 
A(10) 



B(3,^) 
B(k,k) 
B(5A) 
B(l,5) 
B(2,5) 
B(3t5) 
B(h,5) 
B(5,5) 



D(l,l,l) 
D(2,l,l) 

D(3,l,l) 
D(l,2,l) 
D(2,2 t l) 
D(3,2,l) 
D(l,3,l) 
D(2,3,l) 



E 



TYPE STATEMEN T. 

Type statements are used to declare the type of variables , array 

names, and function names. 



The general form is: 



INTEGER type list 



REAL type list 



DOUBLE PRECISION type list 



COMPLEX type list 



LOGICAL type list 



where a type list is composed of variable 
names , array names , or statement function 
names separated by commas. In addition, 
arrays may be dimensioned by appending 
the dimension information to the array 
name in one or more subscript positions. 



When a subscripted variable is declared DOUBLE PRECISION or COMPLEX, 
the compiler will automatically assign two words of storage for 
each element of an array. 

Implicit type assignment is overridden by Type statements. 
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A variable name must be typed prior to its use in an executable 
statement or DATA statement. If the first letter of a variable 
name is I, J, K, L, M, or N, it is implicitly declared of type 
INTEGER and need not appear in a Type statement. If a variable 
name begins with any other letter, it is implicitly declared of 
type REAL and need not appear in a Type statement. 

Examples : 

INTEGER X,Y,Z ,A (10,10) 
REAL H,I,J,K 
LOGICAL ATEST, BTEST 

EXTERNAL STATEMENT . 

When an actual parameter list of a function or subroutine reference 
contains a function or subroutine name, that name must appear in an 
EXTERNAL statement. 

The general form is : 



EXTERNAL m ,n 2 , ,n n 



where the n's are the names of the functions 
or subroutines appearing in the parameter 
list of a function or subroutine reference. 



The EXTERNAL statement appears in the calling program unit 

Example ; 

EXTERNAL SIN, COS 
CALL SUBT (SIN, COS) 



END 

subroutine subt (a,b) 
tanx=a(x)/b(x) 



RETURN 
END 

DATA STATEMENT . 

The DATA statement permits variables and arrays to be initialized 

to predetermined values. 
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The general form is: 



DATA 


list /d ,d 2 ,d 


» • • • d n / ' 1 


ist 2 /d.,d 2 


, . . . d n / 


> . . . 


A lis 


b element may b 


e an 


array 


name or a 


simple 


or 


subscripted variable 


name 


, where the 


sub 


scripts 


must 


be in 


beger constants 


If 


more 


than one 


element 


of 


an ar 


ray is to be initial 


ized , 


an implie 


d DO loop 


may b 


e employed (see 


impl 


ied DO loop 


in 


section 


7). 


The d 


. represents a 


const 


ant , 


or has 


the 


form i*c , 


where 


i is a repeat 


count 


and 


c is a 


constant . 





The constants may be any of the following: 

a. Integer, real, or double precision constant. 

b. Octal constants of the form Odd . . . d , i.e., the letter 

followed by 1 to 16 octal digits (maximum allowable is 
03777777777777777). 

c. Logical constants. The quantities may be expressed as 
.TRUE. , .FALSE. , T, or F. 

d. Hollerith constants. 

A one-to-one correspondence must exist between the list elements 
and the constants. 

DATA statement variables retain their values from one call to the 
next, and they are initialized only once by the DATA statement. 

If a Hollerith constant is used, it must be considered a single 
value and must correspond to a single list element , even though 
it may actually occupy several computer words. If it occupies more 
than one word, the list element must be a subscripted variable, an 
array name, or an implied DO loop with enough array elements remain- 
ing in the array to contain the Hollerith constant (see Hollerith 
constant in section 2). 



Example i 



DIMENSION A(3) 

DATA A ( 1 ) /l 4HABCDEFGHI JKLMN/ 



6-10 



Elements in a COMMON block may appear in a DATA statement only in 
a BLOCK DATA statement (see BLOCK DATA in section 8). 

Variables assigned quantities by a DATA statement may be assigned 
other values during execution. 

When an array name without subscripts appears in the list , the 
entire array is initialized. 

Subscripted variables appearing in a program must have their sub- 
script bounds specified in a DIMENSION, COMMON, or Type statement 
prior to the first appearance of the subscripted variable in a 
DATA statement. 



Example ; 



INTEGER X,Y,Z,A(5,5) 

REAL H,I,J,N(8) ,K 

LOGICAL ATEST ,BTEST 

DATA X , Y ,H/l , 3 1 5 • 7/ 1 1 t J i ATEST/6 . 2 , 99 . 99 »F/ 

DATA Z ,A,K,BTEST,(N(l) ,1=1 ,8 )/0 ,25*0 ,-99. ,.TRUE. ,8*77.77/ 
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SECTION 7 
INPUT/OUTPUT 



GENERAL. 



The following areas of Input/Output ( I/O ) are covered in this 
section : 

a. Input statements. 

b. Output statements. 

c. I/O lists. 

d. Implied DO loop. 

e. Action labels. 

f. Auxiliary I/O statements. 

g. FORMAT statement, 
h. NAMELIST statement. 
i. Tape and Disk I/O . 

INPUT STATEMENTS . 

In explanations presented in this manual section, the symbols 
u, r, f, k, and 1 have the following meanings unless otherwise 
specified : 

u - file specifier or unit number. The file specifier is an 
arithmetic expression whose value identifies the file 
being used for input or output. The file specifier must 
conform to the restrictions of a subscript. Unless other- 
wise specified by a FILE card (see appendix B) , it is as- 
sumed at object time that the file specifier designates a 
tape unit . 

r - random record number. It is an arithmetic expression 

whose value represents a particular record within a random 
disk file. 

f - format specifier. It may be the label of a FORMAT state- 
ment, an array identifier, or a NAMELIST identifier. 
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1 - action label. It specifies a statement label to which a 
branch is made if a parity error or an End-of-File con- 
dition is encountered during execution of an input state- 
ment . 

k - input/output list. It may be a blank or it may contain 
one or more variables and/or implied DO loops , in any 
combinat ion . 

Execution of any of the READ statements causes the next record to 
be read from the input file. The information is scanned and con- 
verted as specified by the format specifier f if the statement is 
a formatted READ statement. The values are assigned to the ele- 
ments specified by the list k. If the list is not specified, either 
a record is skipped or data is read into the locations in storage 
occupied by the FORMAT statement. 

FORMATTED INPUT STATEMENTS. 

Formatted input statements are always associated with a FORMAT 

statement, an array containing FORMAT specifications, or a NAMELIST. 

The general form is : 



1. 


READ f,k 


2. 


READ(u,f) k 


3. 


READ(u,f,l) k 


k. 


READ(u=r,f) k 


5. 


READ(u=r ,f ,l) k 



In all five forms, the input list may be empty (i.e. , blank). 

When the first form is used, the input will be assumed to be from 
a card or tape file labeled READER. 

When the second or third form is used, input will be assumed to be 
from a tape file labeled TAPEn , where n is the value of u in the 
input statement, unless otherwise specified by a FILE card (see 
appendix B) . 
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When the fourth or fifth form is used, then input should be from 
a random disk file. In thHs instance, a PILE card must be used. 

In using the fourth or fifth form, the random number r, when 
evaluated, must have a non-negative integer value (see random disk 
I/O, page 7-36). 

Examples : 

READ 75 

READ(8,BID),((I,J,A(I,J),J=6,9),I=1,5) 

READ (UNIT, 75 )X,Z ,A 
READ(l^,LISTA) 

READ(6=5*X-3i25,END=101,ERR=77) ARRAY 

For further information, see i/o lists, implied DO loop, action 
labels, FORMAT statement, NAMELIST statement, and tape and disk 
I/O in this section; FILE cards in appendix B. 

UNFORMATTED INPUT STATEMENTS. 

Unformatted input statements do not have a format specifier assoc- 
iated with them. Input must be from a tape or disk file which has 
been created with an unformatted output statement. 

The general form is: 



1. 


READ(u) k 




2. 


READ(u,l) k 




3- 


READ-(u=r) k 




h. 


READ(u=r ,l) 


k 



In all four forms, the input list k may be empty (i.e., blank). 

If the list k is not specified, than a record is skipped. 

The file used for input must have been previously created with a 
similar unformatted output statement. 
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When either of the first two forms is used, input must be from a 
tape or serial disk file. 

When either of the last two forms is used, input must be from a 
random disk file (see random disk I/O , page 7-3^)* 

Examples ; 

READ(9) i,a,j,b,d 

READ(2*U,ERR=37) SAM 
READ(UNIT=10,END=99) FEAT,HAMER 

For further information, see i/O lists, implied DO loop, action 
labels, tape and disk i/O in this section; FILE cards in appendix B. 

OUTPUT STATEMENTS . 

In explanations following, the symbols u, r, f , and k have the 

same meanings as outlined under input statements. 

Execution of any of the output statements causes the next record in 
the output file to be created. The information is converted and 
positioned on output as specified by the format specifier f if the 
statement is a formatted output statement. If the list is not 
specified , either a record is skipped or data contained in the 
locations in storage occupied by the FORMAT statement is outputted. 

FORMATTED OUTPUT STATEMENTS. 

Formatted output statements are always associated with a FORMAT 

statement, an array containing FORMAT specifications, or a NAMELIST, 

The general form is : 



1. 


PRINT f ,k 


2. 


PUNCH f ,k 


3. 


WRITE (u ,f ) k 


k. 


WRITE(u=r,f) k 



In all four forms, the output list k may be empty (i.e. , blank) 
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If the first form is used, output will be to a line printer file 
labeled PRINT. 

If the second form is used, output will be to a card punch file 
labeled PUNCH. 

When the third form is used, output will be to a tape which will be 
labeled TAPEn , where n is the value of u in the output statement, 
unless otherwise specified by a FILE card. 

When the fourth form is used, output should be to a random disk 
file. In this instance, a FILE card must be used. 

In using the fourth form, the random record, number r, when evalu- 
ated, must have a non-negative integer value (see random disk I/O , 
page 7-36). 

Examples : 

PRINT 95 »V(J) ,K(*0 ,ZEDD 

PUNCH 55 

WRITE (NO ,A) ROW 

WRITE (3=200-R, 68) MATRIX 

For further information, see I/O lists, implied DO loop, FORMAT 
statement, tape and disk I/O , and random disk I/O in section 7; 
FILE cards in appendix B. 

UNFORMATTED OUTPUT STATEMENTS. 

Unformatted output statements do not have a format specifier as- 
sociated with them. Output must be to a tape or disk file. 

The general form is : 



1. WRITE (u) k 



2. WRITE (u=r) k 



In both forms, the output list k may be empty (i.e. , blank). 

When the first form is used, output must be to a tape or serial 
disk file. 
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When the second form is used, then output must be to a random disk 
file (see random disk I/O , page 7-36). 

Examples : 

write(out) (x(k) ,K=I,j) ,XX 
WRITE (ll=REC) BOOL 

For further information, see I/O lists, implied DO loop, tape and 
disk I/O , and random disk I/O in section 7, FILE cards in appendix B, 

I/O LISTS . 

An input list k in an input statement specifies the variables to 
which values are assigned on input. An output list k specifies the 
variables whose values are transmitted on output. The input and 
output lists are of the same form. 

The general form is : 



k, , k , . . . »k 



where k-. ,k 2 k n are variables , array names , 

or implied DO loops , or any combination thereof. 



An element k. of an i/O list may be a simple variable, a subscripted 
variable, an array name without subscripts, or an implied DO loop. 
An I/O list k may consist of any combination of these elements. 

An array name without subscripts in an I/O list is equivalent to 
inputting or outputting the entire array in the same order in which 
the elements are stored in memory, i.e., column-wise: with the 
left -most subscripts varying most rapidly. 

Examples ; 

I,J,A,KP,B(l) 

(A(INDEX) ,LP,INDEX=1,20) , ZIP, ZAP 

In addition, see implied DO loop and FORMAT statement in section 7. 

IMPLIED DO LOOP . 

An implied DO loop is used as an element in an l/O list to specify 

a repeated cycle of list elements. 
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The general form is 



1. 



(L,i=n 1 , 



n 2 ,n 3 ) 



2. ( (L,i=n 1 ,n 2 ,n ) , j=m 1 ,m 2 ,m ) 



where L is a list of I/O elements 
which may contain an implied DO 
loop, and i ,n^ ^2 ( no and their 
counterparts j ,m^ ,m£ ,mo are as 
defined for the DO statement. 



Example ; 

PRINT 35i((lfB(l,j) ,1=1,3) ,J=6,7) 
The output for the above statement would take the following form: 

1 B(l,6) 

2 B(2,6) 

3 B(3,6) 

1 B(l,7) 

2 B(2,7) 

3 B(3,7) 

where the subscripted B's represent the values of those elements. 

For further information, see DO statement, section 5, I/O list, 
section 7« 

ACTION LABELS . 

The formatted and unformatted input statements can be extended to 
programmatically recover from either End-of-File conditions or non- 
recoverable parity conditions, or both, through use of action 
labels . 



The general form is 



1. ERR=n. 



2. END=n, 



ERR=n ,END=n 



END=n ,ERR=n 



where n^ and n£ are 
statement labels. 
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When an attempt is made to read a record which has a parity error 
from which the operating system cannot recover, control will be 
transferred to the statement labeled n.. . 

When an attempt is made to read an End-of-File, control will be 
transferred to the statement labeled n . 

The program will be terminated immediately by the operating system 
if either of the above conditions occurs and the associated label 
is not specified in the input statement being executed. 

An End-of-File condition can occur under the following circum- 
stances : 

a. Attempting to read a card with an invalid character in 
column one. 

b. Attempting to read an End-of-File record on tape. 

c. Attempting to read a record from an area of disk which 
has not been written. 

d. Attempting to read a record beyond the last record 
previously written on disk. 

Examples ; 

READ(3 5 END=99) 

READ(6=R,35 ,ERR=70) A 

READ(ll ,85 ,END=77 »ERR=78) J,S,V 

For further information, see input statements and tape and disk 
I/O , section 7 • 

AUXILIARY I/O STATEMENTS . 

There are six types of auxiliary I/O statements: 

a. REWIND statement. 

b. BACKSPACE statement. 

c. ENDFILE statement. 
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d . CLOSE statement. 

e. LOCK statement. 

f. PURGE statement. 

REWIND STATEMENT. 

The REWIND statement causes the pointer for the specified tape or 

disk file to be reset to the beginning of the file. 

The general form is : 



REWIND u 



Execution of the REWIND statement causes the file u to be positioned 
to its initial point. 

If the last reference to the file u was a WRITE statement , then an 
End-of-File record is written prior to positioning the file to its 
initial point. 

The REWIND statement is undefined for other than tape or disk files. 

Examples ; 

REWIND 5 
REWIND UNIT 

BACKSPACE STATEMENT. 

If the pointer in file u is positioned at record n, then execution 
of the BACKSPACE statement will cause the file pointer to point 
at record (n-1 ) . 

The general form is : 



BACKSPACE u 



If file u is positioned at its initial point, then execution of 
this statement has no effect. 
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Examples : 

BACKSPACE 8 
BACKSPACE N 

ENDFILE STATEMENT. 

The ENDFILE statement causes an End-of-File record to be written on 

the specified file and the file to be closed. 

The general form is : 



ENDFILE u 



The ENDFILE statement is undefined for anything other than a tape 
file. 

When an ENDFILE statement follows a WRITE statement on the same 
file u , then an End-of-File record is written and the tape is 
positioned such that the next record written will follow the End- 
of-File record. 

When an ENDFILE statement follows a READ statement on the same 
file u , then the tape is positioned to the beginning of the next 
file on the tape. 

When an ENDFILE statement follows a BACKSPACE statement on the same 
file u, then the tape is positioned to the beginning of the file u. 

When an ENDFILE statement follows REWIND or another ENDFILE state- 
ment on the same file u, then the ENDFILE statement is ignored. 

Examples : 

ENDFILE TF1 
ENDFILE 7 

CLOSE STATEMENT. 

The CLOSE statement causes the referenced file to be closed. 
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The general form is : 



CLOSE u 



On a card f ile , a card, containing an ending label is punched, and 
the card punch is released to the system. 

On a line printer file, the printer is skipped to channel 1, an 
ending label is printed, the printer is again skipped to channel 
1, and the printer is released to the system. 

On an unlabeled tape output file , a tape mark and ending label are 
written after the last block on tape, and the tape is released to 
the system. 

On a labeled tape output file , a tape mark and ending label are 
written after the last block on tape, and the tape is released to 
the system. 

Examples : 

CLOSE 19 

CLOSE N 

LOCK STATEMENT. 

The LOCK statement causes the referenced file to be closed. 

The general form is : 



LOCK u 



If the file is tape, then it is rewound and a system message is 
written to notify the operator to remove the reel and save it. 

If the file is not a disk file, then the unit is made inaccessible 
to the system until the operator resets it manually. 

Examples : 

LOCK NUT 

LOCK 7 
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PURGE STATEMENT. 

The PURGE statement causes the referenced file to be closed, 

purged, and released to the system. 

The general form is: 



PURGE u 



Examples : 

PURGE TAPE 
PURGE 8 

FORMAT STATEMENT . 

The FORMAT statement specifies what type of conversion is to be 
performed on data from external representation to internal machine 
representation or vice-versa. 



The general form is : 



n FORMAT (f,f 2 ,... ,f ) 



where n is a statement label and 
f -, ,fp , . . . f f are format specifi- 
cations . 



The FORMAT statement is non-executable. 

The FORMAT statement is always associated with one or more formatted 
input and/or output statements. 

The commas separating the format specifications may be replaced 
with one or more slashes. However, slashes in a FORMAT statement 
are used for record control. 

Each FORMAT specification must agree in type with the corresponding 
variable in the list of the associated I/O statement. 
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When inputting data under a numeric format specification (i, F, E, 
D, G, 0), leading blanks are not significant and other blanks are 
interpreted as zeros. 

Plus signs are optional on input and may be omitted. 

When inputting data under a real format specification (F , E, G, D), 
a decimal point appearing in the input field overrides the decimal 
point placement specified. 

Any blanks read in under a numeric format specification (i, F, E, 
D, G) which are outputted with no action being performed on them 
between inputting and outputting. will appear in the output field 
as negative zeros. 

In the following FORMAT discussions, the symbols w, d, b, and s 
will have these meanings: 

w - total input or output field width, a positive unsigned 
integer. 

d - number of decimal places , a non-negative unsigned integer. 

b - blank. 

s - a string of any valid FORTRAN characters. 

INTEGER CONVERSION ON INPUT USING Iw. 

The integer format specification Iw on input causes the value of 
the integer datum in the input field to be assigned to the corres- 
ponding integer variable in the input list. 

The general form is : 



Iw 



The integer datum must be in the form of an integer constant right- 
justified in the input field. 
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Examples 



Input Field 

567 

bb-329 
-bbbb27 
27bbb 



Specification 

13 
16 
17 
15 



Internal Value 

+567 
-32-9 
-27 
+27000 



INTEGER CONVERSION ON OUTPUT USING Iw. 

The integer format specification Iw on output causes the value of 
the corresponding integer variable in the output list to be written 
on the specified output file. 

The general form is : 



Iw 



The integer is placed right- justified in the output field over a 
field of blanks. 

The plus sign is omitted for positive numbers. 

If the size of the integer exceeds the specified field width w, 
the output field will be filled with asterisks. 



Examples : 












Internal Val 


ue 


Sp 


scif icat 


ion 


Output Field 


+ 23 






14 




bb23 


-79 






14 




b-79 


+67486 






15 




67486 


-67486 






15 




***** 


+978 






11 




* 



REAL CONVERSION ON INPUT USING Fw.d. 

The real format specification Fw.d on input causes the value of 
the real datum in the input field to be assigned to the corres- 
ponding real variable in the input list. 
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The general form is : 



Fw.d 



If there is no decimal point in the input field, then a decimal 
point is inserted d places from the right side of the input field. 

The field width w must be greater than or equal to the specified 
number of decimal places d. An input datum optionally may have 
an exponent (see real conversion on input using Ew.d). 



Examples 



Input Field 

36725931 
3.672593 
-367259. 
-3672. E2 
367259E2 
3.672E-1 
367259 



Specification 

F8.4 
F8.4 
F8.4 
F8.4 
F8.4 
F8.4 
F6.6 



Internal Value 

+3672.5931 
+3.672593 
-367259 
-367200 

+3672.59 

+.3672 

+0.367259 



REAL CONVERSION ON OUTPUT USING Fw.d. 

The real format specification Fw.d on output causes the value of 
the corresponding real variable in the output list to be written 
on the specified output file. 

The general form is : 



Fw.d 



The real number is placed right- just if ied and rounded to d decimal 
places in the output field over a field of blanks. 

The plus sign is omitted for positive numbers. 
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If the size of the number exceeds the specified field width W| 
then the output field will be filled with asterisks. A safe rule 
to use is : 

(w - d) > 3 

Examples ; 



Internal Value 

+36.7929 
+36.7934- 
-0.0316 
0.0 
0.0 

+579. 6h5 
+579. 6h5 
-579.64-5 



Specification 


Output Field 


F7.3 


b36.793 


F9-3 


bbb36.793 


F6.3 


-0.032 


F6.h 


0.0000 


F6.2 


bbO.OO 


F4.2 


•*•*•*# 


F6.2 


579.65 


F6.2 


■*-*•*#■*# 



REAL CONVERSION ON INPUT USING Ew.d. 

The real format specification Ew.d on input causes the value of 
the real datum in the input field to be assigned to the corres- 
ponding real variable in the input list. 

The general form is : 



Ew. d 



If there is no decimal point in the input field, then a decimal 
point is inserted d places from either the right side of the input 
field or from the E denoting the exponent} if there is one. 

The field width w must be greater than or equal to the specified 
number of decimal places d. 

An input datum may or may not have an exponent. 
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Examples ; 



Input Field 

bbbbbb25046 
bbbbb25 • 046 
-bb25046E-3 
bb250.46E-3 



Specification 

Ell. 4 
Ell. 4 
Ell. 4 
Ell. 4 



Internal Value 

+2.5046 
+25-046 
-0.0025046 
+0.25046 



REAL CONVERSION ON OUTPUT USING Ew.d. 

The real format specification Ew.d on output causes the value of 
the corresponding real variable in the output list to be written 
on the specified output file. 

The general form is : 



Ew.d. 



The real number is placed right -just if ied and rounded to a d-digit 
mantissa, together with a four-place exponent field, in the output 
field over a field of blanks. Note that with the Ew.d format 
specification, d takes on a slightly different interpretation 
since no significant digits are written to the left of the decimal 
point in the output field. The plus sign is omitted for positive 
numbers. If the following rule is violated, the output field will 
be filled, with asterisks: 

(w - d) > 6 

If a scale factor n is used, then it will control the decimal 
normalization between the number part and the exponent part as 
follows : 

a. If n < , then |n| zeros will be placed immediately to 
the right of the decimal point with (d-|n|) significant 
digits following the zeros, 

b. If n > , then n significant digits will be placed to the 
left of the decimal point and (d-n+l) significant digits 
will be placed to the right of the decimal point. 
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Examples : 



Internal Value 

+36.7929 
-36.7929 
-36.7924 
+36.7929 
+36.7929 



Specification 

E12.5 
Ell. 5 
E10.5 
-2PE12.5 
+2PE12.5 



Output Field 

bb.36793Eb02 
-.36793Eb02 

■*-*#■■*-* -*■#■## ■* 

bb.00368Eb04 
36.79290EbOO 



DOUBLE PRECISION CONVERSION ON INPUT USING Dw.d. 

The double precision format specification Dw.d on input causes 
the value of the real datum in the output field to be assigned 
to the corresponding variable of type DOUBLE PRECISION in the 
input list. 

The general form is : 



Dw. d 



Aside from the fact that a double precision value is stored in two 
words , and that the exponent in the input field is preceded by a D 
rather than an E, the double precision format specification Dw.d 
behaves in the same manner as Ew.d. 

DOUBLE PRECISION CONVERSION ON OUTPUT USING Dw.d. 

The double precision format specification Dw.d on output causes the 
value of the corresponding double precision variable in the output 
list to be written on the specified output file. 

The general form is : 



Dw.d 



The double precision format specification Dw.d is identical to Ew.d, 
with the following exceptions: 

a. The value associated with it is stored in two machine 
words . 
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b. The variable name associated with the value must be of 
type DOUBLE PRECISION. 

c. The exponent part of the output contains a D rather than 
an E. 

REAL CONVERSION ON INPUT USING Gw.d. 

The real format specification Gw.d on input is identical to Fw.d. 

The general form is : 



Gw. d 



REAL CONVERSION ON OUTPUT USING Gw.d. 

The real format specification Gw.d on output causes the value of 
the corresponding real variable in the output list to be written 
on the specified output file. 

The general form is : 



Gw.d 



The representation in the output field is a fraction of the magni- 
tude of the real number being outputted. 

If N is the magnitude of the number being outputted, then table 
7-1 shows how the number will appear in the output field. 

If a scale factor is used, then it will have no effect on output 
conversion unless the magnitude of the number being written is 
outside the range which permits effective use of F conversion. 



Examples 



Internal Value 

+10. 
+1000. 
+100000. 
+1000000. 



Specification 

G12.5 
G12.5 

G12.5 
G12.5 



Output Field 

bblO.000 
bblOOO.O 
bb,10000Eb06 
bb.l0000Eb07 
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Table 7-1 
Datum Conversion 



Magnitude of Datum 



. 1<N<1 

1<N<10 



io d - 2 <io d - 1 
io d - 1 <io d 



Otherwise 



Equivalent Conversion Effected 



P(w-4). d, kX 
f(w-4). (d-l) , hX 



F(w-4). 1, kx 
F(w-4). 0, hx 
Ew.d 



OCTAL CONVERSION ON INPUT USING Ow . 

The octal format specification Ow on input causes the value of the 
octal datum in the input field to be assigned to the corresponding 
variable in the input list. 

The general form is : 



Ow 



If the datum is less than 16 octal digits long, then it is right- 
justified and stored in a machine word. The maximum octal con- 
stant which can be read is 3777777777777777. 



Examples : 




Input Field 


Specification 


16 


02 


1777777777777777 


016 



Internal Value 

000000000000016 
177777777777777 
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OCTAL CONVERSION ON OUTPUT USING Ow. 

The octal format specification Ow on output causes the octal value 
of the corresponding variable in the output list to be written 
on the specified output file. 

The general form is : 



Ow 



The octal value is placed right -just if ied in the output field over 
a field of blanks. 



Examples 



Internal Value 

000037675^320017 
000037675^320017 

000037675^320017 



Specification 

03 

010 

016 



Output Field 

017 
675^320017 
000037675^320017 



LOGICAL CONVERSION ON INPUT USING Lw. 

The logical format specification Lw on input causes the value of 
the logical datum in the input field to be assigned to the corres- 
ponding variable of type LOGICAL in the input list. 

The general form is: 



Lw 



The input field width w must be greater than or equal to one. 
There may be leading blanks. The first character encountered in 
the field exclusive of leading blanks must be either T or F, for 
true or false, respectively. Any characters following the T or F 
will be ignored. 
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Examples : 






Input Field 


Specification 


Internal Value 


T 


LI 


TRUE 


bbF 


L3 


FALSE 


bbbTRU 


L6 


TRUE 



LOGICAL CONVERSION ON OUTPUT USING Lw . 

The logical format specification Lw on output causes the logical 
value of the corresponding variable of type LOGICAL in the output 
list to be written on the specified output file. 

The general form is : 



Lw 



The logical value is placed right -just if ied in the output field 
over a field of blanks as a T or F, for true or false, respectively. 

Examples ; 

Internal Value Specification Output Field 

FALSE LI F 

FALSE L3 bbF 

TRUE L2 bT 

ALPHANUMERIC CONVERSION ON INPUT USING Aw. 

The alphanumeric format specification Aw on input causes the charac- 
ter string of width w in the input field to be assigned to the 
corresponding variable in the input list. 

The general form is : 



Aw 



The variable may be real or integer. The field width w should 
never exceed six. If it does, then the right-most six characters 
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in the string are stored and the rest are ignored. If w is less 
than six, then the string is stored left -just if ied with (6-w) 
trailing blanks. 



Examples ; 



Input Field 

ABCDEFGHIJK 
ABCDEFGHIJK 
ABCDEFGHIJK 



Specification 

A3 
A6 
All 



Internal Value 

ABCbbb 
ABCDEF 
FGHIJK 



ALPHANUMERIC CONVERSION ON OUTPUT USING Aw. 

The alphanumeric format specification Aw on output causes the char- 
acter string assigned to the corresponding variable in the output 
list to be written on the specified output file. 

The general form is : 



Aw 



The string is placed right -justified in the output field over a 
field of blanks. 



Examples : 



Internal Value 

ABCbbb 
ABCbbb 
ABCbbb 



Specification 

A3 
A5 
A9 



Output Field 

ABC 

ABCbb 

bbbABCbbb 



INPUTTING A CHARACTER STRING USING wHs . 

The Hollerith field specification wHs on input causes the character 
string of width w in the input field to replace the character string 
s of the Hollerith field specification in a FORMAT statement. 

The general form is : 

wHs 
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The Hollerith field specification on input may be used to read in 
page headings which are to be printed on output , but which may 
vary in content from one run to another. 

Example ; 



Input : 



Output 



READ 15 
1 5 FORMAT ( 2X , 9HDUMMYbbbb ) 
PRINT 15 

1 1 
12345678901 
XYbAbSAMPLE 

bbAbS AMPLE 



(card column) 



Note that in the printed output, although 2X has been specified, 
only one blank is printed since the first blank is a carriage 
control character (see carriage control, page 7-27). 

OUTPUTTING A CHARACTER STRING USING wHs . 

The Hollerith field specification wHs on output causes the charac- 
ter string s of width w of the Hollerith field in a FORMAT state- 
ment to be written on the specified output file. 

The general form is: 



wHs 



The string s remains unchanged, 



Example 



Output : 



PUNCH 
95 FORMAT ( 12HbBURR0UGHSbb ) 

111 
123456789012 
bBURROUGHSbb 



(card column) 
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INPUTTING A CHARACTER STRING USING "s". 

The literal string specification "s" on input is identical in 

operation to the Hollerith field specification wHs. 

The general form is : 



Example : 



Input 



Output : 



READ 15 
1 5 FORMAT ( 2X , " DUMMYbbbb " ) 
PRINT 15 

1 1 
123^5678901 
XYbAbSAMPLE 

bbAbSAMPLE 



(card column) 



OUTPUTTING A CHARACTER STRING USING "s". 



The literal string specification 



on output is identical in 



operation to the Hollerith field specification wHs 



The general form is : 



SKIPPING CHARACTERS USING nX. 

The format editing specification nX on input or on output will 
cause n characters to be skipped in the respective input or output 
field . 



The general form is: 



nX 



EDITING USING Tn. 

The format editing specification Tn on input or output will cause 
data to be transferred from or to that position in the record 
specified by n. 
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The general form is 



Tn 



SCALE FACTOR nP . 

A scale factor is defined for use with the F, E, G, and D format 

specif ications , and is of the form: 



nP 



where the scale factor n is 
a signed integer constant . 



When FORMAT control is initiated, a scale factor of zero is auto- 
matically established and applies until a scale factor is encoun- 
tered in the FORMAT statement. Once a scale factor is encountered, 
it applies to all subsequently encountered F, E, G, and D conver- 
sions until another different scale factor or the end of the FORMAT 
statement is encountered. 

SCALE FACTOR ON INPUT. 

For F, E, G, and D format specifications on input, where the input 
datum does not have an exponent , the input datum is multiplied 
by 10 , where n is the scale factor. If the input datum has an ex- 
ponent , then the scale factor has no effect. 

SCALE FACTOR ON OUTPUT. 

For F, E, and D format specifications on output, the mantissa of the 
output datum is multiplied by 10 and the exponent is reduced by 
n, where n is the scale factor. For the G format specification on 
output , the effect of the scale factor is suspended unless the 
magnitude of the datum being outputted is outside the range that 
permits effective use of F conversion. If the use of E conversion 
is required, then the scale factor has the same effect as when 
using the E format specification on output. 

For further information, see real conversion on page 7-l6 using 
Ew.d . 
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FORMAT SPECIFICATION IN AN ARRAY. 

Any of the formatted input/output statements may contain an array 
name in place of a FORMAT statement label. At the time the input/ 
output statement containing the array reference is executed, the 
array must contain the equivalent of a FORMAT statements with the 
first non-blank character being a left parenthesis. Any charac- 
ters in the array following the final right parenthesis of the 
FORMAT statement in the array are ignored. 



Example 



DIMENSION FORM (5)>INFO(6) 
READ (5, 75) FORM 
75 FORMAT (5A6) 

READ(20,F0RM) q,r,(info(i) ,1=1,6) 



Input : (F6.2 ,3X,E15-8 , 6l3 )bbbbbbbbbbb 

CARRIAGE CONTROL. 

When a line printer is used for output , the first character of each 
line of print controls the spacing of the printer carriage. The 
control characters are: 

Character Action 

Blank One space before printing. 

Zero Double space before printing. 

1-9 Skip to channel 1-9 of the 

carriage control tape before 
printing. 

Plus sign No advance before printing. 

Examples : 

25 FORMAT (1H0,E12. 6 ,A5) 
Causes the carriage to double space before printing. 

35 FORMAT (6H+TITLE) 
Provides no carriage advance before printing. 
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45 FORMAT (3X, 615) 
Causes the carriage to single space before printing. 

55 FORMAT (lHl, "TITLE" ) 
Causes the printer to page eject and print TITLE. 

USE OF SLASH (/) . 

A slash in a FORMAT statement is used to indicate the end of a 
record. On input, any remaining characters in the current record 
are ignored when a slash is encountered in the FORMAT statement. 
On output, the current record is terminated and any subsequent 
output is placed in the next record. Multiple slashes may be used 
to skip several records on input or create several blank records 
on output . 

REPEAT SPECIFICATIONS. 

Repetition of any format specification except nX, wHs, "s", or 
Tn is accomplished by preceding it with a positive integer con- 
stant called the repeat count. If the I/O list warrants it, the 
specified conversion will be interpreted repetitively up to the 
specified number of times. If a scale factor is included, then 
it must precede the repeat count. 

Repetition of a group of format specifications is accomplished by 
enclosing them within parentheses and preceding the left parenthe- 
sis with a positive integer constant called the group repeat count, 
which indicates the number of times to interpret the enclosed 
groupings. If the group repeat count is not given, then the group 
is repeated until the I/O list is exhausted. Groupings with paren- 
theses may be continued to any desired level. 

Example ; 

85 format(3E16.6,5(fio.5,I3,4a2) ) 

FORMAT AND I/O LIST INTERACTION. 

The execution of a formatted I/O statement initiates format control, 

If there is an I/O list, then at least one format specification 
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other than wHs, "s", nX, or Tn must exist in the FORMAT statement 
referenced. 

When a formatted input statement is executed, one record is read. 
No other records are read unless otherwise specified by the FORMAT 
statement. The i/O list associated with a FORMAT statement may not 
require more data of a record then it contains. 

When a formatted output statement is executed, writing of a new 
record occurs each time the FORMAT statement referenced so speci- 
fies. Terminating execution of a formatted output statement causes 
the current record to be written. 

Except for the effects of repeat counts, the FORMAT statement is 
interpreted from left to right. 

To each I, F, E, G, D, 0, A, or L format specification there cor- 
responds one element in the i/O list. A list element of type 
COMPLEX is considered, for purposes of I/O conversion, as two list 
elements of type REAL. Thus, there must be two format specifica- 
tions (or a format specification preceded by a repeat count) for 
every list element of type COMPLEX. 

There is no corresponding i/O list element for any wHs, "s", Tn, 
or nX format specification. Instead, the information is inputted 
or outputted directly to or from the FORMAT statement. 

If, under format control, the right-most right parenthesis of the. 
FORMAT statement is encountered and the I/O list is still not ex- 
hausted, then format control reverts to the last previously en- 
countered left parenthesis. If a group repeat count precedes this 
left parenthesis, then it also takes effect. 

If, during execution of a formatted I/O statement, the I/O list 
is exhausted but the right-most right parenthesis of the specified 
FORMAT statement has not been encountered, then execution of the 
I/O statement is complete. This action, of itself, has no effect 
on the scale factor. 
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NAMELIST STATEMENT . 

The NAMELIST statement associates an I/O list with a unique iden- 
tifier. This identifier may not be used for any other purpose in 
the program unit in which it occurs. Only variable and array 
identifiers may be used as NAMELIST elements. These identifiers 
may not be formal parameters. 

The general form is : 



NAMELIST/Nl/a JL ,a , . . . , a /N2/b ,b , . . . ,b 



where Nl and N2 are NAMELIST iden- 
tifiers and a, , . . . ,a and b n , . . . ,b 

1 ' ' n 1 ' ' n 
are varxable or array names. 



INPUT USING NAMELIST. 

Input using NAMELIST is accomplished by executing a formatted READ 
statement which has as its format specifier f a NAMELIST identi- 
fier which has previously been declared in the same program unit,, 
No input list k is allowed in the READ statement. 

The input data file is free format except for the first two charac- 
ters of the first record. The first character is ignored and the 
second must be a dollar sign ($). The NAMELIST identifier desig- 
nated in the associated READ statement must follow the dollar sign, 
with one or more blanks following the NAMELIST identifier. 

Following the NAMELIST identifier and blank(s) are placed, in 
free format, the variables assigned to the NAMELIST and the values 
which are being assigned to them. These may take any one of three 
forms, or any combination thereof: 

a. V = N, where V is a simple or subscripted variable 
assigned to the NAMELIST identifier, and N is the 
value being assigned to the variable V. 

b. B(i) =m., m. ...... ,m , where B is a previously DIMEN- 

SIONed array, i is an integer constant designating an 
element of the array B (i is less than or equal to n) , 
and m. , . . . ,m are the values being assigned to the 
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array elements B(i) through B(n) and are either con- 
stants or are of the form i*c, where i is a repeat 
count and c is a constant. Values must be assigned 
to all elements of the array from B(i) through B(n). 

c. A = m-jin , ...,m , where A is a previously DIMENSIONed 

array and m ,m , ...,m are the values being assigned to 
the entire array A, and are either constants or are of 
the form i*c, where i is a repeat count and c is a con- 
stant . 

If the first record is other than that specified above, then addi- 
tional records are read until the required record is found or the 
End-of-File is encountered. 

The READ statement will be terminated when a second dollar sign is 
encountered in the data file. Anything following the dollar sign 
is ignored. Trailing blanks are interpreted as zeros. 



Example : 



DIMENSION A(4,4) ,M(lO) ,N(20) 

namelist/namea/a ,D ,K ,M ,N ,x/nameb/m ,N ,X 

READ NAMEA 



First input card: 12345678 (card column) 

b$NAMEA D=7 .1,N(4)=2.9,5.7,1.5, X=2 . 5 , 

Second input card: I2345678 (card column) 

A(2,3)=15.9,M=2,1,3*6,4*74$ 

OUTPUT USING NAMELIST. 

Output using NAMELIST is accomplished by executing a formatted 
output statement which has as its format specifier f a NAMELIST 
identifier which has previously been declared in the same program 
unit. No output list k is allowed in the output statement. 

Output records produced by using NAMELIST may be read by a READ 
with NAMELIST statement, and are therefore of the same general for- 
mat as that specified for input to a READ with NAMELIST statement. 
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Example : 

DIMENSION A(4,4) ,M(10),N(20) 

NAMELI ST/NAMEA/A , D , K , M , N , X/NAMEB/M , N , X 

• • « 

WRITE ( 6 , NAMEA ) 
WRITE(6,NAMEB) 

• • ■ 

TAPE AND DISK i/O . 

Tape and disk file unformatted output statements, BLOCKING option, 

and BUFFERing options are discussed below, followed by an expanded 

discussion of disk i/O (serial disk i/O and random disk i/o). 

UNFORMATTED OUTPUT. 

When a tape or disk file is written using unformatted output state- 
ments, it will be formatted in the manner shown in figure 7-1* 



First 
-Physical Record- 
(r words long) 



-LOGICAL RECORD- 



Intermediate 

— Physical Records 

(each R words long) 



A=0 
B=77777 8 

C=R 



Denotes first 
Physical Record 



A=0 
B=0 
C=R 



-Last Physical Record 



Denotes intermediate 
Physical Records 



A=77777 g Denotes last 
B = o Physical Record 

CXC<R 

(number of words used in 
final record) 



Figure 7-1* File Format Using Unformatted Output Statements 

NOTE 
Numbers with subscript 8 are octal. 

In figure 7-1 > R is the number of words per record as declared 
with the RECORD option on the FILE card. A, B, and C are partial 
words comprising the first word of each physical record, and 
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A = [3:15] 
B = [18:15] 
C = [33:15] 

Therefore, if the physical and logical record sizes are the same, 
i.e., the blocking factor is one, then A, B, and C will have the 
following values: 

A = 77777 8 
B = 77777 8 
c = R 

When an unformatted output statement is used, then the file written, 
whether tape or disk, will have the above format. For optimal use 
of disk, however, it should be kept in mind that the disk is allo- 
cated into 30 -wor d segments. 

BLOCKING . 

The BLOCKING option on the FILE card provides the capability of 

packing more than one record into a physical block. 

There are two advantages in blocking files: 

a. Faster I/O speeds can be obtained since many records can 
be brought into or out of internal storage in a single 
access, thus giving a faster access time per record. 

b. More efficient packing of data can be obtained. For ex- 
ample, an 80-character record written on disk unblocked 
would waste 160 characters. This is because the smallest 
addressable area on disk is the segment which contains 
240 characters. By specifying three records per block 
(BLOCKING = 3), 100$ utilization of disk can be obtained. 

Another example is tape blocking. By writing longer 
blocks, the amount of tape space wasted by inter-record- 
gaps would be reduced. 

For most efficient utilization of disk, the blocking should be 
such that the block size should be 30 words (240 characters) or 
some integer multiple thereof. 
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The block size should not exceed 1023 words. 

The blocking of records during WRITE and unblocking during READ is 
handled automatically by the operating system. 

BUFFERING . 

The FILE card has an option whereby the number of buffers assigned 

to a file can be specified (two are assigned by default). 

The number of buffers that should be specified for a given file 
depends on the characteristics of the file. 

A file from which a record is accessed infrequently should have 
only one buffer. Specifying more wastes internal storage space. 

A file that is accessed frequently should have two buffers. While 
data is being processed into or from one buffer, I/O can be in 
progress on the other buffer. 

A file that is accessed N times between long processing loops should 
have N buffers. Since the operating system always tries to keep 
the buffers full for input and empty for output , the N buffers could 
be processed without having to wait for any actual i/O. Then, during 
the long processing loops, the operating system can do the required 
actual I/O operations. 

DISK I/O. 

The assignment of a file to disk requires the use of a FILE card 
(see appendix B). 

If the AREA option is specified, the first reference to the file 
will cause the MCP to set up a directory indicating the amount of 
disk specified. In making the actual allocation of disk, the MCP 
will subdivide the file into 20 areas , each area containing l/20 
of the file. Actual allocation of disk space for each area occurs 
only when a WRITE statement references a record in that area. 
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If the FILE option card does not specify the AREA option, the first 
reference to the file expects the file to exist on disk. 

To create a permanent file on disk, it is necessary to specify the 
LOCK option and the SAVE option. In addition, the file should be 
left open when the program goes to End-of-Job (EOj), i.e. , no 
REWIND statement can be executed on the file. 

Each record on disk is addressed by its relative location in the 
file; the first record is record (zero). The MCP , in order to 
compute an actual disk address from a record address , requires 
that each record be of fixed length. This record length is either 
17 words (by default) or the record size specified in the FILE card. 
Attempting to write or read a logical record where the amount of 
data specified by the list exceeds the amount of data in the record 
will result in program termination. For the situation where a 
logical record is written which is smaller than the record size ( the 
contents of that portion of the record left unfilled is undefined. 
Attempting to read this undefined data should be avoided; program 
termination can occur. 

Associated with each file on disk is an End-of-File pointer. Each 
WRITE operation updates this pointer so that its value is always 
that of the highest record written. 

SERIAL DISK i/O . Serial Disk i/O is selected by specifying the 
SERIAL option on the FILE card. 

The operating system keeps an internal record pointer to control 
serial disk i/O . This pointer is set to -1 initially. Each READ 
or WRITE statement counts the pointer up to 1 , then uses it as the 
relative record address to read or write. 

The random access forms of the READ or WRITE i/O statement can be 
used for a file specified serial (see random disk i/o). When used, 
the internal record pointer is set equal to the address specified 
in the i/O statement rather than being counted by 1. Using the 
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random access forms of the i/O statement on files specified as 
serial? although allowed, is slower than when the file is specified 
as random. 

The results of mixing or alternating serial disk READ and WRITE 
statements without intervening REWINDS are not defined. 

REWIND sets the internal record pointer to -1. 

RANDOM DISK i/O . Random Disk i/O is selected by specifying RANDOM 
on the FILE card. Associated with random access is a special form 
of file identifier in the READ and WRITE i/O statements as follows: 



u = r 



where r is the relative address 
of the record to be accessed. 



The rules for the form of r are the same as for an array subscript. 
The record specified by r will be the record accessed. 

The internal record pointer is always set from r in the i/O state- 
ments. If the serial forms of the i/O statements are used with a 
file specified random, the internal record pointer is not changed. 
This results in several consecutive serial i/O statements accessing 
the same record repeatedly. 

Mixing READ and WRITE statements is allowed in any sequence. 

REWIND sets the internal record pointer at zero. 

Examples : 

READ ( 1=1. . . . ) 

write(6=(a+b-c) . . . 



7-36 



SECTION 8 
SUBPROGRAMS 



GENERAL . 



A subprogram is a program unit , a self-contained and independent 
routine, which may be referenced by the main program and by other 
subprograms. There are three types of subprograms. 

a. FUNCTION subprograms. 

b. SUBROUTINE subprograms. 

c. BLOCK DATA subprograms. 

FUNCTIONS . 

In mathematics , if the value of one quantity is dependent on the 
value or values of another quantity, then it is said to be a func- 
tion of the other quantity. The first quantity is called the 
function and the other quantities are called the arguments. For 
example , in 

arctan(x) 

arctan is the function and x is the argument. 

Functions may be divided into three categories: 

a. Statement functions. 

b. Intrinsic functions. 

c. External functions. 



STATEMENT FUNCTIONS. 

A statement function is defined within the program unit in which 
it is referenced. It is defined by a single statement similar in 
form to an arithmetic or logical assignment statement. 

The general form is : 



f(x x 



,x_ , . 



,x n )=e 



where f is the statement function name, 
x l ' x 2 » • • • » x n are the dummy arguments , 
and e is an expression. 
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The rules for naming a function subprogram are the same as those 
for naming a variable (see section 2). The dummy arguments may 
be simple or subscripted variables. They represent values which 
are passed to the function subprogram and are used in the expression 
e in order to evaluate the function f. The dummy arguments are 
undefined outside of the statement function and may be redefined 
within the program unit. Together, f and e must conform to the 
rules for arithmetic or logical assignment statements. 

Aside from the dummy arguments, the expression e may contain: 

a. Variables used in the program unit. 

b. Intrinsic function references. 

c. References to previously defined statement functions. 

d. External function references. 

A statement function must be defined before it is referenced. 

A statement function is referenced in the same manner as a FUNCTION 
subprogram is referenced. 

The name of a statement function must not appear in an EXTERNAL 
statement , nor as a variable name or an array name in the same 
program unit . 

Example ; 

DIMENSION A(lO) 
LOGICAL STAFUN,Y,Z 
STAFUN(N)=X .LT. SIN (A (N )) 
READ 25 ,X,Y,(A(l) ,1=1 ,10) 
25 FORMAT (F8. 2, L2 ,10F7.2) 
DO 50 J=l ,10 
Z=Y .AND. STAFUN(j) 

50 ... 

INTRINSIC FUNCTIONS. 

The intrinsic functions are those functions made available to a 

FORTRAN object program by the operating system. The names, types, 
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and definitions of the intrinsic functions are predefined, so they 
need only be referenced in order to be used. 

An intrinsic function name may be redefined within a program unit. 
However, if it has been redefined, then that intrinsic function 
will no longer be recognized by the compiler, but its identifier 
will be used as it has been redefined. 

An intrinsic function is referenced by using it as a primary in an 
arithmetic or logical expression. The actual parameters which 
constitute the parameter list must agree in type, number, and 
order with the specifications in table 8-1, and may be any expres- 
sion of the specified type. (For an explanation of actual para- 
meters, see CALL statement, section 6.) When a real parameter 
is specified, however, an integer parameter may be used. 

Execution of an intrinsic function reference results in the passing 
of the actual parameter values to the corresponding formal para- 
meters of the intrinsic function and an evaluation of the intrinsic. 
The resultant value is then assigned to the intrinsic function 
identifier and thereby passed back to the intrinsic function refer- 
ence. 

Examples : 

ibig=maxo ( i , j , k , lest ) 
tange=sin(x+y)/cos(a-b) 

external functions. 

An external function is a program unit which has as its first state- 
ment a FUNCTION statement. 
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The general form is 



t FUNCTION f(a ,a , ...,a ) 


where 


: 


a. 


t is either INTEGER, REAL, DOUBLE 




PRECISION, LOGICAL, COMPLEX, or 




empty . 


b. 


f is the symbolic name of the 




function being defined. 


c . 


a-^ , . . . ,a n are formal parameters 




which may be either a variable 




name , an array name , a SUBROUTINE 




or FUNCTION name, or an asterisk (*) 




(see nonstandard returns). 



An external function is normally referenced by another program 
unit. However, B 5500 FORTRAN permits an external function, tp 
reference itself, i.e. , recurse. 

The construction of external functions is subject to the following 
conditions : 

a. The function name must be used as a variable within the 
function subprogram to the left of the replacement operator 
(=) in an assignment statement at least once. Its value 

at the time of execution of any RETURN statement within 
the function subprogram is the value of the function. 

b. The name of the function must not appear in any non- 
executable statement in the function subprogram, except 
for the FUNCTION statement. 

c. The symbolic names of the formal parameters may not appear 
in an EQUIVALENCE, COMMON, or DATA statement in the func- 
tion subprogram. 

d. The function sub_p_rogram may define or redefine one _ar more 
of its parameters to effectively return results in addi? 
tion to the value of the function. 
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e. The function subprogram may contain any statements ex- 
cept SUBROUTINE, another FUNCTION statement, or BLOCK 
DATA. 

f . The function subprogram must contain at least one RETURN 
statement . 

g. An END statement must be the last statement of the sub- 
program body. 

Example ; 

FUNCTION EVAL(U,V) 
if(u .LT. V) GO TO 1 
EVAL=V/U 
RETURN 
1 EVAL=U/V 
RETURN 
END 

REFERENCING EXTERNAL FUNCTIONS. 

An external function is referenced by using it as a primary in an 
arithmetic or logical expression. The actual parameters, which 
constitute the parameter list, must agree in order, number, and 
type with the corresponding formal parameters in the defining pro- 
gram unit. If a formal parameter is real, an integer actual para- 
meter may be used. An actual parameter in an external function 
reference must be one of the following: 

a. A Hollerith constant. 

b. A variable name. 

c. An array element name. 

d. An array name. 

e. An expression. 

f. The name of a function or subroutine. 

g. $ label. (See nonstandard returns.) 

If an actual parameter is a function name (external or intrinsic) 

or a subroutine name, then the corresponding formal parameter 

must be used as a function name or a subroutine name, respectively, 
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If an actual parameter corresponds to a formal parameter that is 
defined or redefined in the referenced subprogram, the actual 
parameter must be a variable name, an array element name, or an 
array name. Execution of an external function reference, as de- 
scribed in the foregoing, results in an association of actual para- 
meter with all appearances of corresponding formal parameters in 
the executable statements of the subprogram, and in an association 
of actual parameters with variable dimensions, if present, in the 
subprogram. Following these associations, execution of the first 
executable statement of the subprogram body is undertaken. 

An actual parameter which is an array element name containing vari- 
ables in the subscript could in every case be replaced by the same 
parameter with a constant subscript containing the same values as 
would be derived by computing the variable subscript just before 
association of parameters takes place. 

If a formal parameter of an external function is an array name, 
the corresponding actual parameter must be an array name or array 
element name. 

Example : 

total=eval(p,x)+(p,x)+cps(y) 

subroutine . 

A subroutine is defined externally to the program unit that refer- 
ences it. A subroutine defined by a FORTRAN statement headed by a 
SUBROUTINE statement is called a subroutine subprogram. 

DEFINING SUBROUTINE SUBPROGRAMS. 

The SUBROUTINE statement is one of the forms: 
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SUBROUTINE N 


SUBROUTINE N (a ± ,a 2 » • • • a n ) 


where 
a. 

b. 


The letter N is the symbolic name of 
the subroutine to be defined. 

The a's are formal parameters which may be 
either a variable name , an array name , a 
function or subroutine name, or an asterisk 


(*)• 



The construction of subroutine subprograms is subject to the 
following restrictions: 

a. The symbolic names of the formal parameters may not appear 
in_an EQUIVALENCE , COMMON, or DATA statement in the sub- 
program. 

b. The subroutine subprogram may define or redefine one or 
more of its parameters in order to effectively return 
results . 

c. The subroutine subprogram may contain any statements ex- 
cept FUNCTION, another SUBROUTINE statement, or BLOCK 
DATA. 

d. The subroutine subprogram must contain at least one 
RETURN statement. 

e. An END must be physically the last statement. 

In B 5500 FORTRAN, a subroutine may call itself, i.e. , recurse. 



Example : 



SUBROUTINE FALL(T,V,S) 

G=32.172 

S=G*T**2/2 

V=G*T 

RETURN 

END 
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NONSTANDARD RETURNS FROM SUBROUTINES AND FUNCTIONS . 

If a subroutine or function contains one or more nonstandard 

return statements (has the term RETURN n), the formal parameter 

list must contain one asterisk (*) for each return number. The 

actual parameter list of the referencing program unit must then 

have a dollar sign ($) followed by a label in the corresponding 

position. 



Example ; 



Calling Program 



CALL XYZ (A, B, $10, $15) 



10 



15 



Called Program 
SUBROUTINE XYZ (U,V,*,*) 



IF (EXP ) 1,2,3 

1 RETURN 

2 RETURN 1 

3 RETURN 2 
END 



END 



In the above example, if the value of EXP is negative, control will 
be returned to the referencing program at the statement labeled 5, 
if the value of EXP is zero, control will be returned at label 10; 
and if the value of EXP is positive, control will be returned at 
label 15. 

MULTIPLE ENTRY POINTS INTO A SUBPROGRAM . 

For a normal entry into a subroutine subprogram, a CALL statement 
that refers to the subroutine name is used. A normal entry into 
a FUNCTION subprogram is made by a reference to the function name 
in an arithmetic expression. Entry is made at the first executable 
statement following the SUBROUTINE or FUNCTION statement. 
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A subprogram can also be entered by way of a CALL statement or a 
function reference that refers to the name in an ENTRY statement 
in the subprogram. The entry is made at the first executable state- 
ment following the ENTRY statement. 

ENTRY statements are non-executable. Therefore} they do not affect 
control sequencing during normal execution of a subprogram. The 
type, order, and number of parameters need not agree between the 
SUBROUTINE or FUNCTION statement and the ENTRY statement , nor do 
the ENTRY statements have to agree among themselves. However, each 
CALL or function reference must agree in type, order, and number 
with the SUBROUTINE, FUNCTION, or ENTRY statement that it refers to. 



The ENTRY statement in the called subprogram is one of the forms 



ENTRY n 



ENTRY N(a 1 ,a 2 j • • -a n ) 



where : 

a. N is the symbolic name of an entry point. 

b. The a's are formal parameters which may be 
either a variable name , an array name , a 
subroutine or function name, or an asterisk (*). 



Example : 



Calling Program 

• • • 

• • • 

5 CALL SUB(A,B,C ,D) 

• • • 

• • • 

10 CALL ENT1 

• * * 

• • • 

15 CALL ENT2(G,H) 

• • • 

• • • 

END 



Called Program 
SUBROUTINE SUB(U,V,W,X) 



10 . . . 



ENTRY ENT1 
GO TO 10 



ENTRY ENT2(G,H) 



END 
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In the above example, execution of statement 5 causes entry into 
SUB, starting with the first executable statement of the subroutine. 
Execution of statements 10 and 15 also causes entry into the called 
program, starting with the first executable statement following the 
ENTRY ENT1 and ENTRY ENT2(G,H) statements respectively. 

The following are additional rules for entry points: 

a. An ENTRY name may appear in an EXTERNAL statement in the 
same manner as a FUNCTION or SUBROUTINE name. 

b. ENTRY statements may appear only in subprograms. 

c. Entry into a subprogram initializes all references in the 
entire called subprogram from items in the parameter list 
of the CALL or function reference. 

d. If an adjustable array name or any of its variable 
dimensions appear in a parameter list for a FUNCTION, 
SUBROUTINE, or ENTRY statement, that array name and all 
its variable dimensions must appear in that parameter 
list. 

e. In a FUNCTION subprogram, only the FUNCTION name may be 
used as the variable to carry a result back to the call- 
ing program. The ENTRY name may not be used for this 
purpose . 

f . An ENTRY name defined in a subroutine subprogram must be 
referenced in a CALL statement. Similarly, an entry 
defined in a function subprogram must be referenced as a 
function. 

BLOCK DATA . 

Further use of the DATA statement is in the BLOCK DATA subprogram. 
It is used to enter data into COMMON blocks; however, the follow- 
ing must be observed: 
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a. There may be no executable statements in a BLOCK DATA 
subprogram. The first statement of the subprogram must 
be BLOCK DATA. 

b. The subprogram may contain only Type, EQUIVALENCE, DATA, 
DIMENSION, and COMMON statements. 

c. All elements of a COMMON BLOCK must appear in the COMMON 
statement list even though some do not appear in the DATA 
statement list. 

d. More than one COMMON block may be initialized by a single 
BLOCK DATA subprogram. 

e. There may be as many BLOCK DATA subprograms as desired 
in a program, but any block identifier may occur in only 
one BLOCK DATA subprogram. 



Example 



BLOCK DATA 

COMMON /TEST/ K, L, S/ AATWO/ B, C 

DIMENSION C(lO) 

DATA L, S/ 1, 3-5/, C/ 10*16.2/ 

END 
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APPENDIX A 
GLOSSARY 

ACTUAL PARAMETERS. Those parameters in the parameter list of a 
subroutine call or function reference. In contrast to FORMAL 
PARAMETERS . 

ALPHANUMERIC. Contraction of alphabetic and numeric, signifying 
the alphabetic and numeric characters. 

ASSIGNMENT OPERATOR. In FORTRAN, the equal sign (=). 

BCL. An acronym for Burroughs Common Language. 

EXECUTABLE PROGRAM. A program that can be used as a self-contained 
computing procedure. It consists minimally of one main program. 
It may consist of one main program and any number of subprograms. 

EXECUTABLE STATEMENT. A non-declarative statement which is ex- 
ecuted at object time. In contrast to NON -EXECUTABLE STATEMENT. 

EXPONENT. That part of a real (floating-point) number which deter- 
mines the decimal point placement in the mantissa. 

EXPRESSION. Any constant, variable, or function reference, or any 
combination of these separated by operators, commas, or parentheses. 

FIXED-POINT. An arithmetic notation in which the decimal point is 
not present and is assumed to be on the extreme right of a number. 
In contrast to FLOATING-POINT. 

FLOATING-POINT. An arithmetic notation in which the position of the 
decimal point does not remain fixed with respect to one end of the 
numerals. In contrast to FIXED-POINT. 

FORMAL PARAMETERS. Those parameters in the parameter list of a 
subroutine or function declaration. In contrast to ACTUAL PARA- 
METERS . 
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MAIN PROGRAM. A set of statements and comments not containing a 
FUNCTION, SUBROUTINE, or BLOCK DATA statement. 

MANTISSA. That part of a real (floating-point) number which con- 
tains the significant digits. 

MCP. An acronym for the Master Control Program, the B 5500 execu- 
tive system. 

NON- EXECUTABLE STATEMENT. A declaration which, at compile time, 
provides the compiler with a description of data. It is not ex- 
ecuted at object time. In contrast to EXECUTABLE STATEMENT. 

PRIMARY. An arithmetic expression enclosed in parentheses, a 
constant, a variable reference, an array element reference, or a 
function reference. 

PROGRAM UNIT. Refers to either a main program or subprogram. 

PRT. An acronym for Program Reference Table. An area in memory 
for the storage of operands , references to arrays , references to 
segments of a program, and references to files. Permits programs 
to be independent of the actual memory locations occupied by data 
and parts of the program. 

REFERENCE. A term used with special meaning to indicate an identi- 
fication of: 

a. A datum, implying that the current value of the datum will 
be made available during the execution of the statement 
containing the reference. 

b. A procedure, implying that the actions specified by the 
procedure will be made available upon reference. 

SPO. An acronym for SuPervisOry Printer, the B 5500 console type- 
writer . 

SUBPROGRAM. A set of statements and comments headed by a FUNCTION, 
SUBROUTINE, or BLOCK DATA statement. 
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APPENDIX B 
FILE CARDS 

FILE cards are optional since all the parameters used in declaring 
a file have default values. The various I/O statements and their 
default descriptions when a FILE card is not used are listed in 
table B-l • 

Table B-l 
File Default Descriptions 



I/O Statement 



File Name 



Blocking 



Mode 



Peripheral 



READ f,k* 



READ ( u , f ) k 
READ(u) k 
READ(u=r,f ) 



WRITE (u,f) k 
WRITE(u) k 



PRINT f,k* 



r ' h 

PRINT- f ,k* 



READER 



FILEi 
(where i is the 
value of u) 



FILEi 
(where i is the 
value of u) 



PRINT 



PUNCH 

NOTE 
In all cases , 
the multi-file 
name is empty. 



10 Word Buffer, 
80 Characters 

17 Word Buffer, 
132 Characters, 
(size of logical 
record is un- 
limited ) 

17 Word Buffer 
132 Characters , 
(size of logical 
record is un- 
limited ) 

17 Word Buffer, 
132 Characters 

10 Word Buffer, 
80 Characters 



Alpha 



Binary 



Tape or 
Card Reader 

Tape 



Binary 



Tape 



Alpha 



Alpha 



Line Printer 



Card Punch 



*FILE cards cannot be used for these I/O statements 



FILE CARD FORMAT 

FILE cards are free format, with the exception of card columns 1-6: 

12 3 4 5 6 (card column) 
F I L E b b 

where a blank is denoted by b. 
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Columns 73 through 80 are used for a sequence number or identifica- 
tion only , and will be ignored by the compiler except when merging 
a card and tape file at compile time. 

Following the two blanks, the following information must be inserted 
in free format : 

N = FID 
or 

N = MFID/FID 

where N is an unsigned integer constant representing the logical 
unit number. It is the value of u in READ(u,f)k and WRITE(u,f)k. 
MFID is the multi-file identification, and FID is the file identifi- 
cation. If MFID is not included, then it is assumed to be seven 
zeros. For further information, see B 5500 Operation Manual, 
No. 1024916. 

The following is a list of options which may be included on the 
FTLE card. They may be in free format, but they must come in the 
order in which they are given below: 

a. ,UNIT - t 

where t is one of the f ol lowing : 
PRINT 
PRINTER 
READER 
PUNCH 
DISK 
TAPE 

TAPE is the default option for UNIT. 

b. , UNLABELED 

LABELED is the default option if unlabeled is not specified 
( tape only ) . 
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c . , ALPHA 

BINARY is the default option if ALPHA is not specified, 
(tape only) . 

d. ,SAVE = n 

where n is an unsigned integer whose value cannot exceed 
999- It is the save factor, in days (see B 5500 Operation 
Manual). The default save factor is zero. 

e. ,L0CK 

When this option is used, the MCP will close and lock a 
disk file when the program creating it has gone to End- 
of-Job (see tape and disk I/O , section 7)« 

f. , SERIAL 
, RANDOM 

This option specifies the access mode for disk files only. 
The default option is SERIAL. 

g. ,AREA = n 

where n is an unsigned integer constant which denotes the 
amount of area on disk (in number of records) to reserve 
for this file (see tape and disk i/o , section 7)- 

h. , BLOCKING = n 

where n is an unsigned integer which represents the number 
of logical records per physical block. The default option 
is unblocked files, i.e. , a blocking factor of zero. 

i. , RECORD = n 

where n is an unsigned integer which represents the size 
(in words) of a logical record. The default option is 17 
(see table B-l). 

j. , BUFFER = n 

where n is an unsigned integer which represents the number 
of buffers. The default option is 2 (see tape and disk 
i/O , section 7 ) • 
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If the FILE option extends across more than one card, then the next 
card must be flagged as a FORTRAN continuation card with a character 
other than a blank or zero in card column 6. 

In the I/O statements READ(u,f)k and WRITE(u,f)k, if u is not an 
integer constant} then its value at run time must correspond to 
either a file number declared by default or to a logical unit number 
declared on a FILE card. 

If the option 

UNIT = t 

is used to declare the file as a line printer, card punch, or card 
reader, then the remaining default descriptions used for this file 
are designated in table B-l. 
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APPENDIX C 
DOLLAR SIGN CARDS 

A dollar sign card is optional and is used to indicate to the com- 
piler that certain options are to be used at compile time. The 
format of a dollar sign card is: 



Card Column 

1 
2-72 
73-80 



Contents 

$ 

Options in free field format 

Card number or blank. 



The dollar sign card may be placed: 

a. Immediately after the MCP control cards used for compila- 
tion and immediately before the first FORTRAN FILE card 
or FORTRAN source or patch card if no FILE cards are used 
(see section 1 ) . 

b. Anywhere else in the source or patch deck with a proper 
sequence number in order to change options at some point 
in compilation, e.g. , to list only a part of the compiled 
source program. 



Example : 



$CARD 



Sequence 

Number 

00000100 



A=B + C 

$CARD LIST 

X=SQRT(Y**2+Z**2) 

par=tan(x/a) 
v=sin(x+y-z) 

$CARD 



00009000 
00009100 
00009200 
00009300 

• • ■ 

00012200 
00012300 
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Only cards 00009200 through 00012200 will be listed on the file 
LINE. 

When dollar sign cards are grouped together, all will be ignored 
except the last one. If no dollar sign card is included with the 
source deck, then the CARD and LIST options are assumed. 

The various options available are as follows: 

TAPE or CARD 

a. One of these, but not both, must be the first option on 
the dollar sign card immediately following the dollar sign. 

b. CARD indicates to the compiler that the source program 
input is entirely from the file labeled CARD. 

c. TAPE indicates to the compiler that the source program 
input is from the file labeled TAPE and that change or 
patch cards may be inputted from the file labeled CARD. 
If a change or patch card file is used, then it is merged 
into the source program from the file labeled TAPE as a 
function of the sequence number in columns 73-80. If a 
listing is obtained, then the source statements from the 
TAPE file will have a T following the sequence number, and 
the source statements being merged from the CARD file will 
have an R following the sequence number on the compiled 
source listing. The merging process uses the B 5500 alpha- 
meric collating sequence (see appendix G). 



LIST 



a. If present, then a compiled source listing of the source 
program will be made on the file LINE, including any change 
or patch cards. 

b. Segment and address information will also be listed with 
the source program. 
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NEW or NEW TAPE 

a. If present , a new source tape file labeled FORSYM is 
created which includes all change or patch cards and 
FILE cards, but does not include dollar sign cards. 

PRT 

a. If present, then a listing of the source program will be 
made on the file LINE, including any change or patch 
cards, and at the end of each program unit listing, a 
listing of PRT* and stack assignments for each local 
identifier within that program unit will be made. 

b. At the end of the entire program, PRT assignments for 
all global names will be listed. 

c. If PRT is specified, then LIST is assumed. 

DEBUGN 

a. If present, then the actual machine code emitted by the 
compiler is also listed on the file LINE together with 
octal values of constants and format of PRT entries. 

b. If DEBUGN is specified, then PRT and LIST are assumed. 

TRACE 

a. If present, then information is listed on the file LINE 
which indicates how the FORTRAN compiler is analyzing the 
syntax of the source program. 

b. TRACE should be used only in extreme cases because of the 
great volume of output produced. 

c. If TRACE is specified, the LIST, PRT, and DEBUGN options 
are assumed. 



* PRT is an abbreviation for Program Reference Table (see B 5500 
Operation Manual No. 102^916). 
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SEQ f s i 

a. If present , the listing on file LINE and the new source 
program on the file NEWTAPE , labeled FORSYM (if NEW or 
NEW TAPE is specified), will be resequenced. 

b. The specifications following SEQ have the following in- 
terpretations : 

f - the sequence number of the first card of the 
source program. 

s - any special character, usually plus (+) or 
comma ( , ) . 

i - increment. If i=0 , or i is not a number, then 
an increment of 1000 is used. 

c. The SEQ option, if used, must be the last option on the 
dollar sign card. 



HOL 



a. If the source cards are punched in IBM card code, then 
the HOL option need not be used. If this is the case, 
then the listing of the source program produced by the 
compiler will be in IBM card codes, e.g. , ( will be 
printed as $ , = will be printed as #, etc. However, the 
compiler will properly interpret the source program and 
compile it . 

b. If the source cards are punched in IBM card code and the 
HOL option is used, then all characters will be converted 
to BCL before printing on the file LINE. 

c. If the source cards are punched in IBM/36O card code, then 
the HOL option must be used to convert the source program 
to BCL. 



C-k 



TIME 



The HOL option will translate all IBM or IBM/36O cards 
to BCL including strings and Hollerith constants. This 
option also causes the object program produced by the 
compiler to automatically convert into BCL data read with 
an A format specification and data read into Hollerith 
strings . 

The use of the HOL option will slow compilation speed. 
For repeated compilations from large source programs, 
it would be advantageous to use the NEW TAPE option with 
HOL on the first compilation. Thereafter, compilations 
may be made without the HOL option from the generated 
source tape. 



a. If present and. if the LIST option is not present, then the 
source program will not be listed, but at the end of the 
compilation, compilation information will be listed on 
the file LINE. 

CHECK 

a. If present, and if TAPE and CARD files are being merged 
at compilation, then the sequence numbers in columns 
73-80 of the two files will be checked, and if a record(s) 
from the CARD file is not in sequence, then a warning 
message will be outputted on the file LINE: 

SEQUENCE ERROR "n" < "p", 

where n is the new sequence number and p is the old 
sequence number. The B 5500 alphameric collating sequence 
is used (see appendix G). 

VOID n 

a. If present, VOID must be the only option on the dollar 

sign card. This option is used only when merging a CARD 
and TAPE file. 
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If present, and. if n is blank, the record on the TAPE 
file with the same sequence number (in columns 73-80 ) as 
the fVOID card will be ignored by the compiler, will not 
be listed on the file LINE, and will not be inserted in 
the file NEWTAPE , if the NE¥ option has been specified 
previously . 

If present, and if n is not blank, n must be the sequence 
number of a record existing on the TAPE file and, in addi- 
tion, the $V0ID card must have a sequence number in 
columns 73-80. The records on the TAPE file, starting 
with the record which has the same sequence number as the 
$V0ID card (columns 73-80) , will be ignored up to but not 
including the record on the TAPE file with the sequence 
number n. These records will be ignored by the compiler, 
not listed on the file LINE, and not inserted in the file 
NEWTAPE, if the NEW option has been specified previously. 
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APPENDIX D 
COMPILE TIME ERROR MESSAGES 

ERROR 

NUMBER ERROR MESSAGE 

000 SYNTAX ERROR 

001 MISSING OPERATOR OR PUNCTUATION 

002 CONFLICTING COMMON AND/OR EQUIVALENCE ALLOCATION 

003 MISSING RIGHT PARENTHESIS 

004 ENTRY STMT ILLEGAL IN MAIN PGM OR BLOCK DATA 

005 MISSING END STATEMENT 

006 ARITHMETIC EXPRESSION REQUIRED 

007 LOGICAL EXPRESSION REQUIRED 

008 TOO MANY LEFT PARENTHESES 

009 TOO MANY RIGHT PARENTHESES 

010 FORMAL PARAMETER ILLEGAL IN COMMON 

Oil FORMAL PARAMETER ILLEGAL IN EQUIVALENCE 

012 THIS STATEMENT ILLEGAL IN BLOCK DATA SUBPROGRAM 

013 INFO ARRAY OVERFLOW 

014 IMPROPER DO NEST 

015 DO LABEL PREVIOUSLY DEFINED 

016 UNRECOGNIZED STATEMENT TYPE 

017 ILLEGAL DO STATEMENT 

018 FORMAT STATEMENT MUST HAVE LABEL 

019 UNDEFINED LABEL 

020 MULTIPLE DEFINITION 

021 ILLEGAL IDENTIFIER CLASS IN THIS CONTEXT 

022 UNPAIRED QUOTES IN FORMAT 

023 NOT ENOUGH SUBSCRIPTS 
02 4 TOO MANY SUBSCRIPTS 

025 FUNCTION OR SUBROUTINE PREVIOUSLY DEFINED 

026 FORMAL PARAMETER MULTIPLY DEFINED IN HEADING 

027 ILLEGAL USE OF NAMELIST 

028 NUMBER OF PARAMETERS INCONSISTENT 
02 9 CANNOT BRANCH TO FORMAT STATEMENT 

030 SUBROUTINE OR FUNCTION NOT DEFINED IN PROGRAM 
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APPENDIX D (cont) 
COMPILE TIME ERROR MESSAGES 

ERROR 

NUMBER ERROR MESSAGES 

031 IDENTIFIER ALREADY GIVEN TYPE 

032 ILLEGAL FORMAT SYNTAX 

033 INCORRECT USE OF FILE 

034 INCONSISTENT USE OF IDENTIFIER 

035 ARRAY IDENTIFIER EXPECTED 
36 EXPRESSION VALUE REQUIRED 

037 ILLEGAL FILE CARD SYNTAX 

038 ILLEGAL CONTROL ELEMENT 

039 DECLARATION MUST PRECEDE FIRST REFERENCE 

040 INCONSISTENT USE OF LABEL AS PARAMETER 

041 NO. OF PARAMS. DISAGREES WITH PREV. REFERENCE 

042 ILLEGAL USE OF FORMAL PARAMETER 

043 ERROR IN HOLLERITH LITERAL CHARACTER COUNT 

044 ILLEGAL USE OF FORMAL PARAMETER 

045 TOO MANY SEGMENTS IN SOURCE PROGRAM 

046 TOO MANY PRT ASSIGNMENTS IN SOURCE PROGRAM 

047 LAST BLOCK DECLARATION HAD LESS THAN 102 4 WORDS 

048 ILLEGAL i/O LIST ELEMENT 

049 LEFT SIDE MUST BE SIMPLE OR SUBSCRIPTED VARIABLE 

050 VARIABLE EXPECTED 

051 ILLEGAL USE OF .OR. 

052 ILLEGAL USE OF .AND. 

053 ILLEGAL USE OF .NOT. 

054 ILLEGAL USE OF RELATIONAL OPERATOR 

055 ILLEGAL MIXED TYPES 

056 ILLEGAL EXPRESSION STRUCTURE 

057 ILLEGAL PARAMETER 

058 RECORD BLOCK GREATER THAN 102 3 

059 TOO MANY OPTIONAL FILES 

060 FILE CARDS MUST PRECEDE SOURCE DECK 

061 BINARY WRITE STATEMENT HAS NO LIST 
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APPENDIX D (conh) 
COMPILE TIME ERROR MESSAGES 

ERROR 

NUMBER ERROR MESSAGES 

062 UNDEFINED FORMAT NUMBER 

063 ILLEGAL EXPONENT IN CONSTANT 

06k ILLEGAL CONSTANT IN DATA STATEMENT 

065 MAIN PROGRAM MISSING 

066 PARAMETER MUST BE ARRAY IDENTIFIER 

067 PARAMETER MUST BE EXPRESSION 

068 PARAMETER MUST BE LABEL 

069 PARAMETER MUST BE FUNCTION IDENTIFIER 

070 PARAMETER MUST BE FUNCTION OR SUBROUTINE ID 

071 PARAMETER MUST BE SUBROUTINE IDENTIFIER 

072 PARAMETER MUST BE ARRAY IDENTIFIER OR EXPRESSION 

073 ARITHMETIC - LOGICAL CONFLICT ON STORE 

07^ ARRAYID MUST BE SUBSCRIPTED IN THIS CONTEXT 

075 MORE THAN ONE MAIN PROGRAM 

076 ONLY COMMON ELEMENTS PERMITTED 

077 TOO MANY FILES 

078 FORMAT OR NAMELIST TOO LONG 

079 FORMAL PARAMETER MUST BE ARRAY IDENTIFIER 

080 FORMAL PARAMETER MUST BE SIMPLE VARIABLE 

081 FORMAL PARAMETER MUST BE FUNCTION IDENTIFIER 

082 FORMAL PARAMETER MUST BE SUBROUTINE IDENTIFIER 
08 3 FORMAL PARAMETER MUST BE FUNCTION OR SUBROUTINE 

084 DO OR IMPLIED DO INDEX MUST BE INTEGER OR REAL 

085 ILLEGAL COMPLEX CONSTANT 

086 ILLEGAL MIXED TYPE STORE 

087 CONSTANT EXCEEDS HARDWARE LIMITS 

088 PARAMETER TYPE CONFLICTS WITH PREVIOUS USE 

089 COMPLEX EXPRESSION ILLEGAL IN IF STATEMENT 

090 COMPLEX EXPRESSION ILLEGAL IN RELATION 

091 TOO MANY FORMATS REFERENCED BUT NOT YET FOUND 

092 VARIABLE ARRAY BOUND MUST BE FORMAL VARIABLE 
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APPENDIX D (cont ) 
COMPILE TIME ERROR MESSAGES 

ERROR 

NUMBER ERROR MESSAGES 

093 ARRAY BOUND MUST HAVE INTEGER OR REAL TYPE 

09k COMMA OR RIGHT PARENTHESIS EXPECTED 

095 ARRAY ALREADY GIVEN BOUNDS 

096 ONLY FORMAL ARRAYS MUST BE GIVEN VARIABLE BOUNDS 

097 MISSING LEFT PARENTHESIS IN IMPLIED DO 

098 SUBSCRIPT MUST BE INTEGER OR REAL 

099 ARRAY SIZE CANNOT EXCEED 32767 WORDS 

100 COMMON OR EQUIV BLOCK CANNOT EXCEED 32767 WORDS 

101 THIS STATEMENT ILLEGAL IN LOGICAL IF 

102 REAL OR INTEGER TYPE REQUIRED 

103 ARRAY BOUND INFORMATION REQUIRED 

104 REPLACEMENT OPERATOR EXPECTED 

105 IDENTIFIER EXPECTED 

106 LEFT PARENTHESIS EXPECTED 

107 ILLEGAL FORMAL PARAMETER 

108 RIGHT PARENTHESIS EXPECTED 

109 STATEMENT NUMBER EXPECTED 

110 SLASH EXPECTED 

111 ENTRY STATEMENT CANNOT START PROGRAM UNIT 

112 ARRAY MUST BE DIMENSIONED PRIOR TO EQUIV STMT 

113 INTEGER CONSTANT EXPECTED 
11 k COMMA EXPECTED 

115 SLASH OR END OF STATEMENT EXPECTED 

116 FORMAT, ARRAY OR NAMELIST EXPECTED 

117 END OF STATEMENT EXPECTED 

118 10 STATEMENT WITH NAMELIST CANNOT HAVE 10 LIST 

119 COMMA OR END OF STATEMENT EXPECTED 

120 STRING TOO LONG 

121 MISSING QUOTE AT END OF STRING 

122 ILLEGAL ARRAY BOUND 

12 3 TOO MANY HANGING BRANCHES 
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APPENDIX D (cont) 
COMPILE TIME ERROR MESSAGES 

ERROR 

NUMBER ERROR MESSAGES 

124 TOO MANY COMMON OR EQUIVALENCE ELEMENTS 

125 ASTERISK EXPECTED 

126 COMMA OR SLASH EXPECTED 

127 DATA SET TOO LARGE 

128 TOO MANY ENTRY STATEMENTS IN THIS SUBPROGRAM 

129 DECIMAL WIDTH EXCEEDS FIELD WIDTH 

130 UNSPECIFIED FIELD WIDTH 

131 UNSPECIFIED SCALE FACTOR 

132 ILLEGAL FORMAT CHARACTER 

133 UNSPECIFIED DECIMAL FIELD 

134 DECIMAL FIELD ILLEGAL FOR THIS SPECIFIER 

135 ILLEGAL LABEL 

136 UNDEFINED NAMELIST 

137 MULTIPLY DEFINED ACTION LABELS 

138 TOO MANY NESTED DO STATEMENTS 

139 STMT FUNCTION ID AND EXPRESSION DISAGREE IN TYPE 

140 ILLEGAL USE OF STATEMENT FUNCTION 

141 UNRECOGNIZED CONSTRUCT 

142 RETURN, STOP OR CALL EXIT REQUIRED IN SUBPROGRAM 

143 FORMAT NUMBER USED PREVIOUSLY AS LABEL 

144 LABEL USED PREVIOUSLY AS FORMAT NUMBER 

145 NON-STANDARD RETURN REQUIRES LABEL PARAMETERS 

146 DOUBLE OR COMPLEX REQUIRES EVEN OFFSET 

147 FORMAT PARAMETER ILLEGAL IN DATA STATEMENT 

SEQUENCE ERROR "n" < "p", 

where n is the new sequence number and p is the old 
sequence number. 
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APPENDIX E 
OBJECT TIME ERROR TERMINATION MESSAGES 

The following object time error termination messages are peculiar' 
to FORTRAN compiled programs : 

ARG .GT. MAX 1 (where f is CSIN or CCOS ) 

Imaginary component exceeds 158. 

DATA STMT ERR 

a. Too much or too little data for list. 

b. Complex, double, or logical list element must correspond 
with complex, double, or logical data. 

DIV BY ZERO \job specifier), (terminal reference) 

An object program performed a Divide operation using a zero 
denominator; processing of the subject program was discontinued 

(job specifier) = (mix index) DS-ED 

Processing of an object program was discontinued before 
End-of-Job; the EOJ option was set. 

(compiler name) / (program identifier) = (mix index) DS-ED 

Compilation was discontinued before the compiler reached 
End-of-Job; the TYPE EOJ option was set. 

EOF NO LABEL (file designator) : (job specifier), (terminal 

reference) 

An object program has reached the end of the designated file 
and has not specified what is to be done; processing of the 
program was discontinued. 
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EXPON OVRFLW (job specifier), (terminal reference) 

An object program has performed an operation which caused an 
exponent overflow to occur; processing of the program was 
discont inued . 

FLAG BIT (job specifier), (terminal reference) 

An object program has performed an operation which caused a 
word with a flag bit of 1 to be accessed as if it were an 
operand; processing of the program was discontinued. 

FRMT ERROR 

a. Illegal character in format. 

b. Unrecognizable format specification. 

c. Required numeric field is not numeric. 

d. Field width greater than 63. 

e. Format specifies record longer than buffer. 

INTGR OVRFLW (job specifier), (terminal reference) 

An object program performed an operation which caused an in- 
teger overflow to occur; processing of the program was discon- 
tinued . 

INVALD ADRSS (job specifier) , (terminal reference) 

An object program performed an operation which addressed a 
memory location in an absent memory module or an address less 
than 00512; processing of the program was discontinued. 

INVALID ARG CONCAT 

See appendix H. 

INVALID EOJ 

A STOP or CALL EXIT statement was missing from the mainline 
program, and an attempt was made to execute an END statement. 
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LIST SIZE ERROR 

The number of elements in the list of a READ statement exceeds 
the number of data items in the logical record. 

NEGATIVE BASE XTOI 

A**B , where A is negative and B is not an integer. 

NEGTV ARGMNT LN (program specifier) (terminal reference) 

A negative argument has been passed to the intrinsic which 
compiles the natural logarithm. 

NEGTV ARGMNT SQRT (program specifier) (terminal reference) 

A negative argument has been passed to the SQRT intrinsic. 

NMLST ERR 

This error message can be generated during input only. 

a. Illegal subscript on data card. 

b. Too many or too few subscripts. 

c. Illegal character encountered. 

d. = missing. 

e. j or * missing after a constant. 

f. Repeat count not an integer constant. 

OPRTR DS-ED (job specifier), (terminal reference) 

The system operator caused processing of a program to be dis- 
continued through use of a DS message. 

SELECT ERROR (file designator) : (job specifier), (terminal 

reference) 

An object program performed an invalid operation on the 
designated file, e.g. , rewinding a card reader. Processing of 
the program was discontinued. 
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STACK OVRFLW (job specifier), (terminal reference) 

The operations performed by an object program have caused its 
stack to overflow its limit; processing of the program has 
been discontinued. 

TYPE ERR 

a. Exponent part in data contains non-digit after D, E, +, 
or - (input only). 

b. The data read in using an I specification in a FORMAT 
statement is either: 

1) Greater than the maximum integer allowed ( 549755813887 ) 

2) Double or real. 

c. The list element using a D specification in a FORMAT state- 
ment is not double precision. 

d. The list element using an E, F, or G specification in a 
FORMAT statement is logical, integer, or double precision. 

e. The list element using an L specification in a FORMAT 
statement is not logical. 

ZERO ARGMNT LN (program specifier) (terminal reference) 

An argument of zero has been passed to the intrinsic which 
compiles the natural logarithm. 

ZERO MODULES DMOD 

DM0D(A,B), where B = 0. 

NOTE 
For further information, refer to 
B 5500 Operation Manual No. 102^916. 
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APPENDIX F 
B 5500 VERSUS USASI FORTRAN, EXTENSIONS AND DIFFERENCES 

ose extensions and differences listed below are based on a com- 
rison of B 5500 FORTRAN and USASI FORTRAN, as specified in the 
cument ASA X3. 9-1966. 

TENSIONS PERMITTED IN B 5500 FORTRAN . 

e following extensions are permitted in B 5500 FORTRAN. 

a. More than one statement per card is allowed. 

b. The character set includes the quote sign ("). 

c. The relational operators <, <, ^ , >, > are allowed in 
place of their FORTRAN mnemonics. 

d. Hollerith constants may be used in assignment statements. 

e. Theoretically, there is no limit to the number of dimen- 
sions which can be declared for an array. 

f . A subscript may be any integer or real arithmetic expres- 
sion . 

g. In the statement : 

GO TO i , (k ,k , . . . ,k ) 

i may be an integer or real variable. 

h. In the statement: 

GO T0(k ,k , . . . ,k ) ,i 

i may be an integer or real arithmetic expression. 

i. In the statement: 
IF ( 1 . e . ) s 

s may be any executable statement except a DO statement. 

j. The terminal statement of a DO loop may be any executable 
statement , with any implications involved assumed to be 
understood by the programmer. 
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k. In the statement: 

DO m i=n ,n ,n 

i may be an integer or real simple variable. 

n ,n ,n may be integer or real arithmetic expressions. 

n and n do not have to be greater than zero. 

i ,n ,n , and n may. be. redefined within the range of the 

DO statement, with any implications involved assumed to be 

understood by the programmer. 

1 . CLOSE u ; LOCK u ; PURGE u . 

m. In i/O and AUXILIARY I/O statements) u may be an arith- 
metic expression. 

n. NAMELIST and. NAMELIST i/O . 

o. READ f ,k; PUNCH f,k; PRINT f,k. 

p. The intrinsics: TAN, COTAN , ARSIN , ARCOS , SINH , COSH, ERF, 
GAMMA, ALGAMA , AND, OR, COMPL , EQUIV , CONCAT , TIME. 

q. Random disk i/O . 

r. Action labels. 

s. Non-standard returns from subprograms. 

t. Multiple entry points to subprograms. 

u. Each of the two components of a complex constant; may be 
either real or integer. 

v. Hollerith constants and literals may be enclosed in quotes. 

w. The format specifications Ow and Tn . 

x. The ability to have a subprogram recurse. 
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DIFFERENCE FROM USASI FORTRAN . 

In the statements STOP n and PAUSE n ? n is blank or an integer 

constant of up to six digits. 



F-3 



APPENDIX G 
COLLATING SEQUENCE 

CODES 



CHAR. 


INTERNAL CODE 


BCL CODE 


CARD CODE 


BA 


8421 


OCTAL 
CODE 


BA 


8421 


ZONE 


NUM. 


Blank 


11 


0000 


60 


01 


0000 


- 


- 


. 


01 


1010 


32 


11 


1011 


12 


8-3 


[ 


01 


1011 


33 


11 


1100 


12 


8-4 


( 


01 


1101 


35 


11 


1101 


12 


8-5 


< 


01 


1110 


36 


11 


1110 


12 


8-6 


<#» 


01 


mi 


37 


11 


nn 


12 


8-7 


& 


01 


1100 


34 


11 


0000 


12 


- 


$ 


10 


1010 


52 


10 


1011 


11 


8-3 


* 


10 


1011 


53 


10 


1100 


11 


8-4 


) 


10 


1101 


55 


10 


1101 


11 


8-5 


/ 


10 


1110 


56 


10 


1110 


11 


8-6 


< 


10 


mi 


57 


10 


nn 


11 


8-7 


- 


10 


noo 


54 


10 


0000 


11 


- 


/ 


11 


0001 


61 


01 


0001 





1 


/ 


11 


1010 


72 


01 


1011 





8-3 


% 


11 


1011 


73 


01 


1100 





8-4 


= 


11 


1101 


75 


01 


1101 





8-5 


] 


11 


1110 


76 


01 


1110 





8-6 


II 


11 


1111 


77 


01 


nn 





8-7 


i 


00 


1010 


12 


00 


1011 


- 


8-3 


@ 


00 


1011 


13 


00 


1100 


- 


8-4 


: 


00 


1101 


15 


00 


1101 


- 


8-5 


> 


00 


1110 


16 


00 


1110 


- 


8-6 


> 


00 


nn 


17 


00 


nn 


- 


8-7 


+ 


01 


0000 


20 




1010 


12 





A 


01 


0001 


21 




0001 


12 


1 


B 


01 


0010 


22 




0010 


12 


2 


C 


01 


0011 


23 




0011 


12 


3 


D 


01 


0100 


24 




0100 


12 


4 


E 


01 


0101 


25 




0101 


12 


5 


F 


01 


0110 


26 




0110 


12 


6 


G 


01 


0111 


27 




0111 


12 


7 



o 



u 
z 

UJ 

=> 

o 



o 
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APPENDIC G (cont) 
COLLATING SEQUENCE 



CHAR. 


INTERNAL CODE 


BCL CODE 


CARD CODE 




BA 


8421 


OCTAL 
CODE 


BA 


8421 


ZONE 


NUM. 




H 


01 


1000 


30 


11 


1000 


12 8 


O 


1 


01 


1001 


31 


11 


1001 


12 9 


X 


10 


0000 


40 


10 


1010 


11 




J 


10 


0001 


41 


10 


0001 


11 1 




K 


10 


0010 


42 


10 


0010 


11 2 




L 


10 


0011 


43 


10 


0011 


11 3 




M 


10 


0100 


44 


10 


0100 


11 4 




N 


10 


0101 


45 


10 


0101 


11 5 




O 


10 


0110 


46 


10 


0110 


11 6 




P 


10 


0111 


47 


10 


0111 


11 7 




Q 


10 


1000 


50 


10 


1000 


11 8 




R 


10 


1001 


51 


10 


1001 


11 9 




/ 


11 


1100 


74 


01 


1010 
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S 


11 


0010 


62 


01 


0010 


2 




T 


11 


0011 


63 


01 


0011 


3 




U 


11 


0100 


64 


01 


0100 


4 




V 


11 


0101 


65 


01 


0101 


5 




W 


11 


0110 


66 


01 


0110 


6 




X 


11 


0111 


67 


01 


0111 


7 




Y 


11 


1000 


70 


01 


1000 


8 




Z 


11 


1001 


71 


01 


1001 


9 







00 


0000 


00 


00 


1010 







1 


00 


0001 


01 


00 


0001 


1 




2 


00 


0010 


02 


00 


0010 


2 


X 

O 


3 


00 


0011 


03 


00 


0011 


3 


X 


4 


00 


0100 


04 


00 


0100 


4 




5 


00 


0101 


05 


00 


0101 


5 




6 


00 


0110 


06 


00 


0110 


6 




7 


00 


0111 


07 


00 


0111 


7 




8 


00 


1000 


10 


00 


1000 


8 




9 


00 


1001 


11 


00 


1001 


9 




? 


00 


1100 


14 


00 


0000 


ALL OTHER 
CARD CODES 
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APPENDIX II 
BIT -MANIPULATION INTRINSICS 

The B 5500 FORTRAN compiler provides five intrinsics for use in 

bit manipulation and masking. It is assumed that the programmer 

who makes use of these intrinsics has a prior working knowledge of 

the B 5500. All five of these intrinsics permit access to all but 

the left-most bit, bit zero, of a B 5500 word. 

AND . 

This intrinsic logically ANDs bit numbers 1 through k7 of its two 

arguments. The arguments remain unchanged. 

The general form is : 



AND (A ,B) 


where A and B are 


real arithmetic 


expressions . 



Examples : 

A subscript of 8 indicates an octal number, 
Y=AND(S ,t) 



1111111111111111 



8 



377 777 7 7777 77777 8 llllllllllllllllg 

123^567023^56701 8 3210765^210765^ 12105650220066oo g 



OR. 



This intrinsic logically ORs bit numbers 1 through 47 of its two 
arguments. The arguments remain unchanged. 

The general form is : 



or(a,b) 



where A and B are real arithmetic expressions, 



II -1 



Examples 



A subscript of 8 indicates an octal number. 



y=or(s ,t) 



3777777777777777 g llllllllllllllllg 3777777777777777 g 
123^567012345670 8 3210765^3210765^ 8 323^767^323^767^ 

COMPLEMENT . 

This intrinsic returns the logical COMPLEMENT of its argument. The 

argument remains unchanged. 

The general form is : 



compl(a) 



where A is an arithmetic expression, 



Examples : 



A subscript of 8 indicates an octal number. 



y=compl(s) 



3777777777777777 g 0000000000000000 g 
I2345670l23^5670 g 65432l0765^32107 g 



EQUIVALENCE . 

This intrinsic logically EQUIVALENCES its two arguments. The 

arguments remain unchanged. 

The general form is : 



equiv(a,b) 



where A and B are real arithmetic expressions 
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Examples : 

Y = EQUIV(S ,T) 



3777777777777777 8 llllllllllllllllg llllllllllllllllg 
12345670123^5670 g 321076543210765^ 1753575317535753 g 

CONCAT. 

The FORTRAN intrinsic CONCAT provides general bit-wise partial-word 

manipulation. CONCAT is a REAL FUNCTION of the form: 



CONCAT (A,B,S1 ,S2 ,N) 



where : 

a. A and B are integer or real arithmetic expressions; 

b. SI, S2 , and N are integer arithmetic expressions; 

c. SI > 0; 

d. S2 > 0; 

e. N > 0; 

f. SI + N < 48; 

g. S2 + N < 48. 

If any one of conditions (c) through (g) is not true, the object 
program will be discontinued with an INVALID ARG CONCAT message. 

When this function is called, first bit S2 of B is transferred to 
bit SI of A , then bit S2 + 1 of B is transferred to bit SI + 1 of A , 
and so forth, until N bits have been transferred. In other words, 
starting with bit S2 of B and moving to the right, each successive 
bit is transferred to A, starting with bit SI of A, until N bits 
have been transferred. A, B, SI, S2 , and N remain unchanged after 
the operation unless they are to the left of the replacement 
operator (=) in the statement referencing CONCAT. 

Although there are 48 bits in a word, numbered through 47, bit 
number cannot be accessed by using CONCAT. 
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Example 1 ; 



I¥ORD=64 

J¥0RD=1 

IBIT=46 

JBIT=^7 

N = l 

X=CONCAT ( WORD , J¥ORD , IBIT , JBIT , N ) 



bit 3 6 9 12 15 18 21 2k 27 30 33 36 39 k2 k5 



I¥0RD 
(before and after) 





























































































X 







bit 3 6 9 12 15 18 21 2k 27 30 33 36 39 k2 k$ 



J¥ORD 
(before and. after) 































































































X 



X 
(after) 






3 


6 


9 


12 . 


15 


18 


21 


24 


27 


30 


33 


36 


39 


42 


45 
































































X 




























X 







Example 2 



DATA I¥0RD, J¥0RD , IBIT , JBIT, N/0777 > 01111 ,39 ,36 ,6/ 

• • • 

J¥0RB=C0NCAT ( I¥0RD , J¥0RD , IBIT , JBIT , N ) 



n-k 



bit 3 6 9 12 15 18 21 2h 27 30 33 36 39 kz h5 



IWORD 
(before and. after) 




bit 3 6 9 12 15 18 21 2h 27 30 33 36 39 Jjg ^5 



J¥ORD 
(before ) 



























































































KXXX 



bit 3 6 9 12 15 18 21 2h 27 30 33 36 39 hz k$ 



JWORD 
(after) 




Example 3 



KOF=CONCAT (0,1750,2 4 ,36 ,12) 



bit O 3 6 9 12 15 18 21 2h 27 30 33 36 39 hZ h5 



























X 










KOF 
(after) 


















X 


X 


X 


X 


























>< 


>< 














Example h 1 




INTEGER BIT 

« * • 


A=24.0E+0 
BIT=42 

a=concat(a 


,12 


,38 


,BI 


T ,6 


) 
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bit 3 6 9 12 15 18 21 24 27 30 33 36 39 42 45 



A 
(before ) 



A 
(after) 






3 


6 


9 


12 


15 


18 


21 


24 


27 


3° 


33 


76 


2? 


42 


45 




























X 
































><x 
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APPENDIX I 
PRT CONTENTS OF A FORTRAN OBJECT PROGRAM 

R + O EEEEEEEE 

1 Used by .LABEL. 

2 500000000 

3 FPB 
h SD 

5 BC 

6 AIT 

7 MSCW 

10 INCW 

11 COM/PRL 

12 R + , Stack 

13 OWNARRAY description 
±h ALGOL WRITE 

15 ALGOL READ 

16 ALGOL FILE CONTROL 

17 

20 BLOCKCTR 

21 JUNK 

22 BASENSIZE 
2 3 LISTRTN 
2k CLASN 

25 HOLTOG 

26 Powers of Ten 

27 20 wd ARRAY for printer output 

30 ERR 

31 SQRT 

32 ARSIN 

33 EXP 

34 SIN 

35 ALOG 

36 TAN 

37 ATAN 
kO GAMMA 
kl DATAN 
42 DCOS 
k3 DSIN 
kh ATAN 2 
45 CABS 
h6 DMOD 
hi DEXP 
50 DSQRT 
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INDEX 

TITLE PAGE 

Action Label 7-2, 7-7 

Actual Argument 3-2 

Actual Parameters 5~9 > 5-10, 5-H > 6-9, 

8-3, 8-5, 8-6, A-l 

Alphanumeric. A-l 

AND H-l 

Area Option 7-34, 7-35 

-ARG .GT. MAX f E-l 

Argument , Actual 3-2 

Arguments , Dummy 8-1,8-2 

Arithmetic Assignment Statement 4-1 

Arithmetic Expression 3-1 

Arithmetic IF Statement 5-4 

Arithmetic Operators 3-1 

Array 2-7, 2-8, 6-2, 7-1, 7-27 

Array, Format In 7-27 

ASSIGN Statement 4-3, 5-3 

Assigned. GO TO Statement 4-3 > 5-3 

Assignment Operator 4-2, A-l 

Assignment Statement , Arithmetic 4-1 

Assignment Statement , Logical 4-2 

Auxiliary i/O Statement ... ..... 7-8 

Aw 7-22, 7-23 

BACKSPACE Statement 7-9 » 7-10 

BCL 2-2, A-l 

Bit-Manipulation Intrinsics H-l 

Blanks, Significance of 1-2, 2-2, 7-13 

BLOCK DATA Statement 6-4, 6-11, 8-5, 8-7, 8-10 

BLOCKing 7-33 

Bounds , Subscript 2-8 , 6-1 

BUFFERing 7-34 



one 



TITLE PAGE 

CALL EXIT Statement 5-8 

CALL Statement 5-10, 8-8 

Cards , Change 1-2 

Cards , Comment 1-1,1-3 

Cards, Continuation 1-2, 1-3, B-4 

Cards, Dollar Sign 1-1, 1-4, C-l 

Cards, FILE 7-33 f 7-34, 7-35, B-l , C-l 

Cards , Patch C-l 

Cards , Program 1-1 

Carriage Control 7-27 , 7-28 

Change Cards 1-2 

Character Set 2-1 

Character String 2-6, 7-23, 7-24, 7-25 

CHECK c-5 

CLOSE Statement 7-10 

Collating Sequence G-l 

Comment Cards 1-1 , 1-3 

COMMON Statement 2-8, 6-1, 6-3, 6-7, 6-11, 

8-4, 8-7, 8-10, 8-11 

Compile Time Error Messages D-l 

COMPLEMENT H-2 

Complex Constant 2-5 

Complex Variable 2-7 , 6-4 

Computed GO TO Statement 5-2 

CONCAT H_3 

Constant , Complex 2-5 

Constant, Double Precision 2-3, 2-4 

Constant, Hollerith 2-5, 5-10, 8-5, 6-10 

Constant , Integer 2-3 

Constant , Logical 2-5 

Constant , Real 2-3 

Constants 2-2 

CONTINUE Statement 5_7 

Continuation Cards 1-2, 1-3, B-4 

Control Carriage 7-27, 7-28 

Control Statement .... 5-1 

two 



TITLE PAGE 

DATA Statement 2-8, 6~9 , S-k , 8-7, 8-10, 8-11 

-DATA STMT ERR E-l 

DEBUGN C-3 

Deck, Set-Up 1-^ 

Declarative (Non-Executable) 

Statement 6-1 

Default Descriptions , File B-l 

Difference From USASI FORTRAN F-3 

DIMENSION Statement 2-8, 6-1, 6-3 » 6-11, 8-11 

Dimensions, Variable 5-10, 6-2 

Disk File, Random 1-h, 7-5, 7-6 

Disk File, Serial 7-^, 7-5 

Disk I/O 7-3^ 

Disk I/O , Random 7-36 

Disk I/O, Serial 7-35 

-DIV BY ZERO E-l 

DO Loop, Implied 7-6 

DO Statement 5-5 

Dollar Sign Card Options C-2 

Dollar Sign Cards 1-1, 1-^, C-l 

Double Precision Constant 2-3, 2-h 

Double Precision Variable 2-7, 6-k , 7-18 

Dummy Arguments 8-1 , 8-2 

Dw.d 7-18, 7-26 

End-of-File Condition 7-7 

END Statement 1-2, 1-3, 8-5, 8-7 

ENDFILE Statement 7-10 

Entry Points , Multiple 8-8 

ENTRY Statement 8-9 

-EOF NO LABEL E-l 

EQUIVALENCE H-2 

EQUIVALENCE Statement 6-k, 6-5, 8-k , 8-7, 8-11 

Error Messages , Compile Time D-l 

Error Termination Messages, 

Object Time E-l 
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TITLE PAGE 

Ew.d. 7-16, 7-17 j 7-18, 7-26 

Executable Program A-l 

Executable Statement 2-8 , A-l 

-EXPON OVRFLW E-2 

Exponent A-l 

Expression 3-1 ? A-l 

Expression, Arithmetic 3-1 

Expression, Logical 3-^ > k-Z 

Extensions Permitted in 

B 5500 FORTRAN F-l 

External Function 8-3, 8-5 

EXTERNAL Statement 6-9, 8-2, 8-10 

Field, Hollerith 2-2, 7-23> 7 -2k , 7-25 

FILE Card Format B-l 

FILE Card. Options B-2 

FILE Cards 7-33, 7-3^ » 7-35 » B-l, C-l 

File Default Descriptions B-l 

File Specifier (Unit Number) 7-1 

File, Random 7-1, 7-36 

Fixed-Point A-l 

-FLAG BIT E-2 

Floating-Point A-l 

Formal Parameters 5-9 > 5-10, 5-H » 8-3, 8-5, 

8-6, 8-8, 7-1 , A-l 

Format , FILE Card B-l 

Format In Array 7-27 

Format Specifier 7-1, 7-2, 1 -h , 7-5 

FORMAT Statement 7-1, 7-2, 1 -h , 7-12, 7-23 , 

7-27 » 7-28 

Formatted Output Statements 1 -h , 7-12, 7-27 > 7-29 5 7-31 

-FRMT ERROR E-2 

Function, External 8-3, 8-5 

Function, Intrinsic 8-2 

Function Reference 3-2 , 3-k 

FUNCTION Statement 8-1, 8-2 
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Function, Statement 8-1, 8-2 

Function Subprogram 8-1 

Gw.d 7-H, 7-26 

GO TO Statement 5_1 

GO TO Statement , Assigned 4-3 , 5-3 

GO TO Statement , Computed 5-2 

GO TO Statement, Unconditional 5-1 

HOL C-4 

Hollerith Constant 2-5, 5-10, 8-5 

Hollerith Field. 2-2, 7-23, 7-24, 7-25 

wHs 7-23 ? 7-24, 7-25 

Identification B-2 

IF Statement 5-4 

Implied DO Loop 7-6 

Index, Invalid 5-2, 5-3 

Input Statement 7-1 , 7-6 

Input Statements, Formatted . 7-2, 7-27, 7-29 

Input Statements , Unformatted. 7-3 

Integer Constant 2-3 

Integer Variables 2-7 , 7-13 

-INTGR OVRFLW E-2 

Intrinsic Function 8-2 

Intrinsics , Bit-Manipulation H-l 

-INVALID ADRSS E-2 

-INVALID ARG CONCAT E-2 

-INVALID EOJ ' 1-3, E-2 

Invalid Index 5-2 , 5-3 

I/O , Disk 7-34 

I/O, List 7-2, 7-6, 7-28, 7-30 

i/O , Random Disk 7-36 

I/O , Serial Disk 7-35 

Iw 7-13, 7-14 
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Label , Action 7-2 , 7-7 

Label , Statement • 1-1 , 1-2 

LIST c 

List, I/O ■ • ■ • 7-2, 7-6, 7-28, 7 

-LIST SIZE ERROR E 

Literal String 7 

LOCK Statement 7 

Logical Assignment Statement h 

Logical Constant 2 

Logical Expression 3-^> ^ 

Logical IF Statement 5 

Logical Operators 3-^j 3 

Logical Quantity 3 

Logical Variable 2-7 ? 3-^ > 7 

Loop , Implied DO 7 

Lw 7-21 , 7 



Main Program A ~ 

Mantissa A 

MCP ix, A~ 

Multiple Entry Points 8. 

-NAMELIST Statement 7-1? 7-2, 1 -h , 7' 

-NEGATIVE BASE XTOI E 

-NEGTV ARGMNT LN E 

-NEGTV ARGMNT SQRT E 

NEW or NEW TAPE C 
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22 
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-NMLST ERR E~3 

Non-Executable (Declarative) 

Statement 6-1 , A--2 

Nonstandard Return 8-8 

Number, Sequence 1-2, 1-3? B-2 , C-l , C-2 

Object Program, PRT Contents of a 

FORTRAN 1-1 

Object Time Error Termination 

Messages E--1 
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Octal (DATA Stmnt) 7-20 

Operator, Assignment ...... 4-2, A-l 

Operators , Arithmetic 3-1 

Operators , Logical 3-4 ? 3-5 

Operators, Relational ...... 2-2 

-OPRTR DS-ED E ~3 

Option, Area 7-34, 7-35 

Option, Random 7-36 

Option, Serial 7-35 

Options, Dollar Sign Card 0-2 

Options, FILE Card B-2 

OR . . H_1 

Output Statement 7-4, 7-6 

Output Statements, Formatted ..... 7-4, 7-12, 7-27 » 7-29? 7-31 

Output Statements, Unformatted 7-3 » 7-5; 7-32 

Ow 7-20, 7-21 

nP (Scale Factor) 7-17? 7-26, 7-28 

Parameters, Actual . . 5-9 > 5-10, 5-H > 6-9? 

8-3, 8-5, 8-6, A-l 

Parameters, Formal 5-9? 5-10 » 5-H j 8-3, 

8-5, 8-6, 8-8, A-l 



Parity Condition 7-7 

Patch Cards 0-1 

PAUSE Statement 5-8 

Precedence 3-2, 3-4 

Primary A-2 

Program Cards ..... 1-1 

Program, Executable A-l 

Program , Mam a *~ 

Program Unit ..... A-2 

PRT A "2 ? 0-3 

PRT Contents of a FORTRAN 

Object Program 1-1 

PURGE Statement 7-12 
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Quantity Logical 3»4 

Random Disk File „ 7-4, 7-5, 7-6 

Random Disk l/O 7-36 

Random File „ 7-1 > 7-36 

Random Option 7-36 

Random Record Number 7-1, 7-3? 7-5 

Real Constant 2-3 

Real Variable ..... ..... 2-7, 7-l4, 7-16 

Record Number, Random . 7-1, 7-3, 7-5 

Recurse 8-4, 8-7 

Reference A-2 

Reference, Function 3-2, 3-4 

Relation 3-4, 3-5 

Relational Operators 2-2 

Repeat Count 7-28 

Return, Nonstandard . ..... 8-8 

RETURN Statement 5-9 > 8-4, 8-5, 8-7 

REWIND Statement 5-9, 8-4, 8-5, 8-7 

Scale Factor .7-17? 7-26, 7-28 

-SELECT ERROR E-3 

Semicolon 1-2, 2-2 

SEQ fsi C-4 

Sequence , Collating G-l 

Sequence Number .1-2, 1-3, B-2 , C-l , C-2 

Serial Disk File 7-4, 7-5 

Serial Disk l/O 7-35 

Serial Option 7-35 

Significance of Blanks 1-2, 2-2, 7-13 

Simple Variable 2-6 

Slash 7-28 

Specifier, File (Unit Number) 7-1 

Specifier, Format 7-1, 7-2, 7-4, 7-5 

SPO 5-8, A-2 
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Statement, ASSIGN 4-3, 5-3 

Statement , Assigned. GO TO 4-3 , 5-3 

Statement , Auxiliary i/O 7-8 

Statement, BACKSPACE 7-9, 7-10 

Statement, BLOCK DATA 6-4 , 6-11, 8-5, 8-7, 8-10 

Statement, CALL 5_10, 8-8 

Statement, CALL EXIT 5_8 

Statement , CLOSE 7-10 

Statement, COMMON 2-8, 6-1, 6-3, 6-7, 6-11, 
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Statement , IF 5-h 
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